CJKOIAO 1/238 SLU I.TC REPR DIAG 
CJICDIA.P11 aO-OCT-81 16:08 

1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



B 1 

D»#IAC X24. 07-563 02-FEB-82 16:42 PAGE 1 



SEO 0001 



.RE« X 



IDENTIFICATION 



PRODUCT CODE 
PRODUCT NAME 
PRODUCT DATE 
MAINTAINER: 



AC-T052A-«C 

CJKDIAO 11/23B SLU LTC REPAIR 
SEPT-81 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IS THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
DOCUMENT. 



NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C): 1982 BY DIGITAL EQUIPMENT CORPORATION 
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96 1.0 GENERAL PROGRAM INFORMATION 

97 
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99 
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101 1.1 ABSTRACT 

103 THIS PROGRAM TESTS BOTH SERIAL LINE UNITS (SLU'S) AND THE LINE TIME 

104 CLOCK (LTC) ON THE M8189 MODULE. ITS MAIN PURPOSE IS TO PROVIDE SCOPE 

105 LOOPING FOR REPAIR PERSONNEL. 

106 . ERROR TYPE-OUTS IDENTIFY A FUNCTION ^ _ 

107 BEING DONE OR A FUNCTION THAT FAILED AND TO WHAT LOGICAL PORTION OF 

108 THE BOARD IT FAILED ON (I.E., TRIED TO SET BIT 6 ON CSR OF SLUD. 

109 THIS PROGRAM IS BASICALLY A REWRITE OF THE DLll-W DIAGNOSTIC AND 
no THEREFORE IS WRITTEN IN MACRO-11 USING THE SYSMAC MACRO PACKAGE. IT 
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111 IS COMPATIBLE WITH ALL EXISTING MANUFACTURING AND FIELD SERVICE AUTO- 

112 MATED TEST SYSTEMS. 
113 

1U 
115 

116 1.2 SYSTEM REQUIREMENTS 

118 A. HARDWARE REQUIREMENTS 
119 

120 - 11/238 CPU MODULE 

121 - MINIMUM 8K OF MEMORY 

122 - TURN AROUND JUMPER INSTALLED ON SLU2 
123 

124 B. SOFTWARE ENVIRONMENTS 

126 - XXDP STAMD-ALONE 

127 - XXDP CHAIN MODE 

128 - APT 
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130 - SLIDE 
131 

132 

134 1.3 RELATED DOCUMENTS AND STANDARDS 

136 - DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION FOR 11/24 ON 

137 BOARD OPTIONS TEST 

138 B6I-79-004-00-U 
139 

140 - STANDARD APT SYSTEM TO PDP-11 DIAGNOSTIC INTERFACE REV. 15 

141 16-FEe9UARY-76 APT SYSTEM GROUP 
142 

143 - DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 

144 175-003-009-02 
145 

146 

147 1.4 PREREQUISITE DIAGNOSTICS 

148 

149 THIS PROGRAM ASSUMES THE CORRECT OPERATION OF THE CPU INSTRUCTION SET. 

150 THIS IS TO BE VERIFIED BY EITHER. 
151 

152 CJKDBXX DCF11-AA CPU DIAGNOSTIC 

155 OR 

154 CJKDEXX F11 QUICK TEST 

155 

156 

157 

158 1.5 ASSUMPTIONS 

159 

160 IT IS ASSUMED THAT THE CONSOLE DEVICE THAT IS CONNECTED TO SLUl IS OP- 

161 ERATIN6 CORRECTLY. IF THE TERMINAL IS NOT OPERATING CORRECTLY FALSE 

162 INDICATIONS CAN BE EXPECTED. 
163 

164 
165 

166 2.0 OPERATING INSTRUCTIONS 
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SEO 0007 



2.1 LOADING AND STARTING PROCEDURES 

USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES. 
2.1.1 STARTING PROCEDURE - 

LOAD THE SWITCH REGISTER WITH SETTING (SOFTWARE SWITCH REGISTER LOCA- 
TION = 176) 

A. START AT 200. 

AFTER CHECKING THE TRANSMITTER. THE PROGRAM WILL PRINT ITS 
IDENTIFICATION AND REPORT THE NUMBER OF DEVICCS UNDER TEST 
(NUMBER IS OCTAL). "END PASS" IS PRINTED AFTER A FULL PASS 
HAS BEEN MADE ON ALL DEVICES UNDER TEST. 

B. START AT 204. »**»nOTE**** 

THE 'tCHO" TEST WILL BE EXECUTED. AN "•" IS PRINTED AT THE 
BEGINNING OF THE TEST. THE ECHO TEST READS A CHARACTER FROM 
THE TERMINAL, WRITES THAT CHARACTER TO THE TERMINAL, AND RE- 
PORTS ANY ERROR FLAGS SET IN THE RECEIVER BUFFER. A 
CONTROL-C (*C) HALTS THE TEST AND PRINTS "STOP" AT THE TERMI- 
NAL CONTINUING RESTARTS THE ECHO TEST. 



C. START AT 210. 



****NOTE**** 



THE TERMINAL OUTPUT TEST WILL BE EXECUTED. DEPRESSING ANY 
CHARACTER AT THE TERMINAL HALTS THE TEST. CONTINUING RES- 
TARTS THE TEST. THE TEST OUTPUTS 32 CHARACTERS ON A LINE AND 
REPEATS THE PATTERN EVERY THREE LINES. THE PATTERN IS AS 
FOLLOWS (OCTAL CODE 040 ~> 377): 

THIS BOTTOM LINE COULD BE THE FOLLOWING IF THE TERMINAL DOES 
NOT HAVE LOWER CASE: 



aABCDEFGHIJKLMNOPQRSTUVWXYZC 



CUPPER CASE ALPHA3 



2.2 PROGRAM OPTIONS 



BIT15 
BIT14 
BIT13 
BIT12 
BITII 
BIT10 



HALT ON ERROR 
SCOPE LOOP 

INHIBIT ERROR TYPEOUT 

UNUSED 

UNUSED 

INHIBIT ERROR FLAGS TEST 
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S£Q 0008 



BIT09 
BIT08 
BIT07 
BIT06 
BIT05 
BIT04 
BIT03 
BIT02 
BIT01 
61 TOO 



LOOP ON ERROR 
UNUSED 

DISABLE SLU2 DATA TEST 

INHIBIT LTC TESTS 

INHIBIT ALL SLU TESTS (BOTH SLUS) 

INHIBIT SLU1 TESTING 

INHIBIT SLU2 TESTING 

UNUSED 

UNUSED 

UNUSED 



BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE CON- 
TENTS OF THE SOFTWARE SWITCH REGISTER DURING EXECUTION. TO DO THIS 
THE OPERATOR MUST TYPE A "CNTL G" (TYPING A "G" WITH THE "ZJM." KEY 
HELD DOWN AT THE SAME TIME). THIS IS PROCESSED AT KEY TIMES DURING 
THE PROGRAM (I.E. ON ERRORS, IN BETWEEN EACH TEST). A PROBLEM CAN 
OCCUR SINCE THE PROGRAM HAY BE TESTING THE SLU CONNECTED TO THE CON- 
SOLE DEVICE . IF THIS HAPPENS IT 

SHOULD NOT CAUSE AN ERROR BUT THE "CNTL G" MAY BE LOST. SO IF THE PRO- 
GRAM DOES NOT RESPOND TO THE FIRST "CNTL G" TYPE A FEW MORE UNTIL 



RESPONSE IS RECEIVED. 
RESPOND WITH: 



THE 

WHEN THE "CNTL G" IS RECEIVED THE PROGRAM WILL 



SWR = XXXXXX NEW 



WHERE XXXXXX IS EQUAL TO THE PRESENT SWITCH REGISTER CONTENTS IN 
OCTAL. THE OPERATOR CAN THEN TYPE; 



1. <CR> IF NO CHANGES ARE TO BE MADE. 

2. 6 DIGITS <CR> TO REPRESENT IN OCTAL THE NEW 
SETTING. 



SWITCH REGISTER 
THE 



CONTROL-U IF THE OPERATOR MAKES AN ERROR WHILE INPUTTING 
NEW SWITCH REGISTER SETTING. 



2.3 EXECUTION TIMES 

1ST PASS RUNTIME (WORST CASE) 15 SECONDS 

LONGEST TEST TIME 12.5 SECONDS 

ADDITIONAL RUN TIME(£XTRA UNITS) NONE 

LONGEST PASS TIME 15 SECONDS 

3.0 ERROR INFORMATION 

3.1 ERROR REPORTING PROCEDURE^ 

IF A ROUTINE FAILS AND THE INHIBIT ERROR TYPEOUT (8IT13) OF THE SWR IS 
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NOT SET, A PRINTOUT RESULTS IN THE FORM: 



SEO 0009 



"(SOME ASCII MESSAGE)" 
TEST ERR PC RCSR 
XXXXXX XXXXXX XXXXXX 



CANr APPLICABLE DATA HEADINCS3 
[ANY APPLICABLE DATA3 



NOTE: "RCSR" IS DEPENDENT ON THE FAILURE 
COULD BE TCSR, RBUF , TBUR, OR LKS 

WHERE "XXXXXX" IS AN OCTAL NUMBER. 



THEREFORE 



THIS ERROR PRINTOUT OCCURS PROVIDED THE ERROR THAT EXISTS WOULD NOT 
HINDER THE TYPEOUT. IN CASES WHERE IT IS NOT POSSIBLE TO PRINT AN 
ERROR HESSAGF (I.E. FATAL CONSOLE TRANSMITTER FAILURES). A HALT 
CCURS. (SEE SECTION 3.2 FOR ERROR HALT INFORMATION.) 



NOTE 

FOR SOFTWARE SWITCH OPERATION. THE 
SWITCH REGISTER CAN BE HANGED BY TYPING 
A CONTROL-6 AT THE CONSOLE DURING ERROR 
PRITNOUTS. AFTER CONTINUING FROM THE 
ERROR HALT THE OLD SWR CONTENTS IS DIS- 
PLAYED AND THE NEW CONTENTS CAN BE EN- 
TERED. IF ERROR HALTS ARE DISABLED. THE 
CONTROL-G RESPONSE OCCURS IMMEDIATELY 
FOLLOWING THE TYPEOUT. 



3.2 ERROR HALTS 

THERE ARE 4 ERRORS IN THIS PROGRAM THAT CAUSE A 
ARE IN TESTS 1. 2. AND 3. 



HALT. THESE ERRORS 



TEST 1 ERROR 



- ACCESS TO SLU1 TRANSMITTER CSR CAUSE TIME-OUT TRAP. 
THIS PROBLEM WILL PROBABLY CAUSE AN INABILITY OF THE 
HJCRO-ODT TO RUN. 



TEST 2 ERROR - ACCESS TO SLUl TRANSMITTER DATA BUFFER CAUSED TIME-OUT 
TRAP. THIS PROBLEM WILL PROBABLY CAUSE AN INABILITY OF 
THE MICRO-ODT TO RUN. 

TEST 3 ERROR - THE FIRST ERROR IS THAT DONE DID NOT CLEAR WHEN THE 
TRANSMITTER BUFFER WAS FILLED AS IT SHOULD. 

THE SECOND ERROR INDICATES 'HAT DONE DID NOT RESET IN A 
REASONABLE TIME AFTER THE DATA BUFFER WAS FILLED. INDI- 
CATING THAT THE CHARACTER WAS NEVER TRANSMITTED. THIS 
COULD CAUSE MICRO-ODT TO NOT RUN OR GARBLED OUTPUT FROM 
THE MICRO-ODT. 
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4.0 PERFORMANCE AND PROGRESS REPORTS 

THE ONLY REPORT FROM THIS PROGRAM OTHER THAN ERROR REPORTS IS THE END 
PASS MESSAGE. IT IS IN THE FORM: 

END PASS #XXXXX 

WHERE XXXXX IS THE DECIMAL NUMBER OF END OF PASSES COMPLETED. 
5.0 DEVICE INFORMATION TABLES 
SLU1 RCSR 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 



SEO 0010 



I 



I I I 



RECEIVER DONE 

RECEIVER INTERRUPT ENABLE 



I I 
I I 
- I 



SLUl RBUF 

15 14 13 12 11 10 9 



I I I I 



I 



I I I I I I I I I 



I I 
I I 
I I 
I I 

FRAME ERROR I 

RECEIVE PARITY 

ERROR 

RECEIVED DATA BITS (8y 



I I 
I I 
ERROR- I 
OVERRUN 



SLUl XCSR 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 



I 



I I I 



TRANSMITTER READY 

TRANSMITTER INTERRUPT ENABLE I 

SLUl X8UF 
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421 
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424 
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15 U 13 12 11 10 9 8 7 6 5 4 3 2 1 0 
^ ^ J- J J ^ J J J 



TRANSMITTER DATA BITS (8) 



LTC CSR 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 



I 



INTERRUPT ENABLE 



I I 
I 



SLU2 RCSR 

15 14 13 12 11 10 9 8 7 6 5 4 

I r I I 

I I 
I I 

RECEIVER DONE I 

INTERJ^UPT ENABLE 



SLU2 RBU^ 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 



I I I I I 



I 



I I I I I I I I 



I I I 

I I I 
ERROR - I I 

OVERRUN I 

FRAME ERROR 

RECEIVER PARITY 

ERROR 

RECEIVER DATA BITS (8) 



SLU2 XCSR 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 

- - - - ^ ^ 



SEQ 0011 
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I I I 
I 1 I 

TRANSMITTER DONE I I 

INTERRUPT ENABLE I 

BREAK 



SLU2 XBUf ,3 12 11 10 9 8 7 6 5 4 3 2 1 0 



I 



I I I I I I 1 I I 



TRANSMITTER DATA BITS (8) 



6.0 PROGRAM DESCRIPTION 



6.1 PROGRAM EXECUTION CHARACTERISTICS 



THIS PROGRAM TESTS ALL THE SELECTED DEVICES AS A SINGLE UNIT. IT 
FIRST VERIFIES THAT ALL REGISTERS CAN BE ACCESSED, THE WRITEABLE BITS 
ARE ABLE TO BE WRITTEN TO AND ARE UNIQUE ON ALL THREE DEVICES. IT 
THEN CHECKS EACH DEVICE FOR INTERRUPTS AND FOR DATA RELIABILITY. 
FINALLY IT SETS ALL SELECTED DEVICES UP TO GO AT THE SAME TIME ENABLES 
INTERRUPTS AND STARTS THEM OFF. THIS TEST CHECKS SYSTEM INTERACTION. 
WHEN ALL TESTS HAVE BEEN COMPLETED THE END OF PASS MESSAGE IS TYPED. 



6.2 SUBTEST SUMMARIES 
TEST1 



TEST2 
TEST3 



TEST ABILITY TO ACCESS SLUI TRANSMITTER CONTROL 
REGISTER. HALTS IF ACCESS CAUSES TIMEOUT TRAP. 

TEST ABILITY TO ACCESS SLUI TRANSMITTER BUFFER. 
ACCESS CAUSES TIMEOUT TRAP. 



AND STATUS 



HALTS IF 



S£0 00^2 



TEST SLUI TRANSMITTER BIT7 (DONE) CLEARS WHEN TRANSMITTER 
BUFFER IS LOADED. THE BUFFER IS LOADED WHICH SHOULD CLEAR 
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THE DONE BIT. AFTER IT IS VERIFIED THAT "DONE" CLEARS THE 
PROGRAM WAITS TO RECEIVE DONE BACK AFTER THE DATA IS TRANS- 
FERRED OUT OF THE BUFFER. IF DONE DOES NOT INITIALLY CLEAR 
OR FAILS TO RESET THE PROGRAM HALTS. 



SEQ 0013 



TEST4 



TESTS 
TEST6 

TEST10 

TEST11 

TEST14 
TESTIS 
TEST16 



TEST THAT 3LU1 TRANSMITTER BIT7 (DONE) SE^S WITH RESET. THE 
TRANSMITTER BUFFER IS LOADED WITH A CHARACTER. AS SOON AS 
"DONE" SETS A SECOND CHARACTER IS LOADED INTO THE BUFFER. 
BECAUSE THE FIRST CHARACTER IS STILL BEING SHIFTED OUT OF 
THE UART "DONE" WILL NOT NORMALLY SET FOR AT LEAST 1 MS (DE- 
PENDING ON BAUD RATE). THE PROGRAM ISSUES A RESET BEFORE 
THF TIME IS UP AND IMMEDIATELY CHECKS FOR "DONE", IF IT IS 
SET THE PROGRAM ASSUMES IT WAS SET BY THE RESET INS i RUCTION. 
THIS ERROR DOES NOT CAUSE A HALT. 

TEST ABILITY TO ACCESS SLUl> RECEIVER CONTROL AND STATUS RE- 
GISTER. AN ERROR IS REPORTED IF ACCESS CAUSES A TIMEOUT 
TRAP. 



TEST ABILITY TO ACCESS SLUl RECEIVER BUFFER. 
REPORTED IF ACCESS CAUSES A TIMEOUT TRAP. 



AN ERROR IS 



TEST THAT SLUl TRANSMITTER INTERRUPT ENABLE (81 T6) CAN BE 
SET AND RESET. THIS TEST CHECKS THAT THE BIT CAN BE WRITTEN 
INTO AND READ. CLEARED BY WRITING A ZERO TO IT AND CLEARED 
8Y A '7»ESET". 

TEST THAT SLUl RECEIVER INTERRUPT ENABLE (BIT6) CAN BE SET 
AND RESET. SAME TEST AS FOR TRANSMITTER INTERRUPT ENABLE. 

SAME AS TEST1 BUT DONE 0NSLU2 AND ERROR DOES NOT CAUSE HALT. 

SAME AS TEST2 BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 

SAME AS TEST3 BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 



TEST17-21 SAME AS TEST4-6 BUT FOR SLU2. 
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538 

539 

5^0 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 
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SEQ 0014 



TEST22 TEST SLU2 BREAK BIT (8IT0) CAN BE SET, CLEARED, AND RESET. 
TEST23-26 SAME AS TEST 10-13 BUT FOR SLU2. 



TEST27 
TEST30 

TESi32 

TEST33 
TEST34 

TEST35 

TEST36 



TEST ABILITV TO ACCESS LINE CLOCK STATUS 
REPORTED IF ACCESS CAUSES TIMEOUT TRAP. 



TEST THAT LINE CLOCK INTERRUPT ENABLE 
CLEARED, AND "RESET". 



REGISTER. ERROR 
CBIT6) C»N BE SET, 



UNIQUE INTERNAL ADDRESS TEST. THIS TEST WRITES A BIT INTO 
ONE OF THE DEVICE REGISTERS AND THEN VERIFIES THAT BIT IS 
NOT SET IN OTHER REGISTERS. THE TEST IS REPEATED FOR OTHER 
REGISTERS. 

TEST THAT SLUl TRANSMITTER INTERRUPTS ONLY WHEN ENABLED. 
THIS TEST CHECKS THAT THE TRANSMITTER ONLY INTERRUPTS WHEN 
ITS INTERRUPT ENABLE BIT IS SET. 

TEST SLUl TRANSMITTER INTERRUPTS DO NOT OCCUR WHEN DISABLED. 
THIS TEST CHECKS THAT THE TRANSMITTER DOES NOT INTERRUPT 
WHEN THE PROCESSOR PRIORITY IS 7 OR THE INTERRUPT ENABLE BIT 
IS CLEARED. 

TEST SLUl TRANSMITTER FOR DOUBLE INTERRUPTS. THIS TEST 
FIRST CHECKS THAT THE TRANSMITTER CAN INTERRUPT THEN MAKES 
SURE THAT ONLY ONE INTERRUPT IS REQUESTED FOR EACH SETTING 
Of "DONE". 

TEST THAT SLUl TRANSMITTER INTERRUPT CLEARS WITH LOADING OF 
TRANSMITTER BUFFER. THIS TEST PUTS THE PROCESSOR AT 7, SETS 
TRANSMITTER INTERRUPT ENABLE AND FILLS THE TRANSMITTER 
BUFFER. WHEN "DONE" SETS THE SLU SHOULD HAVE AN INTERRUPT 
PENDING. THE PROGRAM THEN FILLS THE BUFFER AGAIN WHICH 
SHOULD CLEAR THE INTERRUPT. 



TEST46-57 SAME AS TESTS 33-44 EXCEPT FOR SLU2 INSTEAD OF SLUl 



TEST60 



TEST61 



TEST62 



TEST THAT BREAK TRANSMITS ALL ZEROES. PUT ALL ONES INTO RE- 
CEIVER BUFFER THEN ISSUE A BREAK THE RECEIVER BUFFER SHOULD 
CONTAIN ZEROES. 

TEST THAT FRAMING ERROR (BIT13> CAN BE SET DURING BREAK. 
TRANSMIT A BREAK AND A CHARACTER JUST TO LET US KNOW WHEN TO 
LOOK FOR THE ERROR BIT. WHEN RECEIVER "DONE" SETS BOTH 
BREAK AND CHARACTER SHOULD BE THERE, CHECK FOR BIT 13 IN RE- 
CEIVER STATUS REGISTER. 



TEST SLU2 DATA PATH USING WRAP 
TEST 45 ON SLUl. 



CABLE CONNECTOR. SAME AS 
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595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

6U 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

651 

632 

633 

634 

635 

636 

637 

643 

651 

655 

662 

663 

664 

669 

(1) 

(1) 

(1) 

(1) 

(1) 
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TEST63 TEST LINE TIHE CLOCIC INTERRUPTS PROPERLY. 

TEST64 TEST LINE TIME CLOCK FOR DOUBLE INTERRUPTS. 

TEST65 TEST THAT LINE TIHE CLOCK INTERRUPT CLEARS WITH RESET. 

TEST70 BLAST TEST. THIS TEST RUNS ALL SELECTED DEVICES SIMULTANE- 
OUSLY IN INTERRUPT NODE. AFTER 60 INTERRUPTS FROM THE LINE 
CLOCK OR 256 (10) BYTES HAVE BEEN TRANSFERRED BY THE SLU'S 
EVERYTHING IS SHUT DOWN. THE PROGRAM THEN VERIFIES THAT NO 
INTERRUPTS WERE L'ST ON EITHER SLU AND THAT THE DATA TRANS- 
FERRED WAS CORRECT. 

NOTE: IF RUNNING UNDER THE APT ENVIRNOMENT MANY OF THE ABOVE TESTS ARE 
ONLY EXECUTED DURING FIRST PASS. 



6.3 SPECIAL SUBROUTINE DESCRIPTIONS 



6.3.1 ECHO TEST - 

THIS ROUTINE WILL ECHO ANY CHARACTER TYPED ON EITHER SLU1 OR SLU2. 
DEFAULT IS TO THE CONSOLE DEVICE SLUI . THE TEST IS HALTED BY TYPING A 
CONTROL-C. TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING. 

6.3.2 TERMINAL OUTPUT TEST - 

THIS ROUTINE WILL OUTPUT ALL WRITEABLE CHARACTERS FOR THE OCTAL CODE 
040 — > 377. 32 CHARACTERS ARE PRINTED ON EACH LINE. THE PATTERN IS 
REPEATED EVERY THREE LINES. 



SEO 0015 



7.0 LISTING 
X 



.TITLE CJKDIAO 11/238 SLU LTC REPR DIA6 
.••COPYRIGHT (C) SEPT-81 
.•♦DIGITAL EQUIPMENT CORP. 
.••MAYNARD. MASS. 01754 



■ * 



CJKD 
CJKD 
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000001 
160000 



001100 



00001 1 
000012 
000015 
000200 
1 77776 

177570 
177570 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
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;*THIS PROGRAM WAS ASSEHBLED USING THE PDP-11 HAINDEC SVS«AC 
)*PACICAGE (HAINDEC-11-DZQAC-C5). JAN, 1981. 

; ♦ 

$TN~1 

$SUR=160000 .-.-HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TVPOUT 
.S8TTL BASIC DEFINITIONS 

.••INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 

•EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

.EQUIV lOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 



SEQ 0016 



.••MISCELLANEOUS 



HT= 

LF = 
CR= 
CRLF= 
PS= 

.EQUIV 

STKLMT= 

PIRQ= 

DSUR= 

DDISP= 



17 
12 
15 
200 

177776 
PS.PSW 
17^774 

177570 
177570 



DEFINITIONS 

;;CODE FOR 

;;CODE FOR 

;;CODE FOR 

;;CODE FOR 



HORIZONTAL TAB 
LINE FEED 
CARRIAGE RETURN 
CARRIAGE RETURN-LINE 



FEED 



;; PROCESSOR STATUS WORD 



; .-STACK LIMIT REGISTER 

; .-PROGRAM INTERRUPT REQUEST REGISTER 

;; HARDWARE SWITCH REGISTER 

;. -HARDWARE DISPLAY REGISTER 



.-♦GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
R1 = 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP= 
PC= 



ZO 
XI 
XI 
X3 
Z4 
25 
U 
X' 
X6 
X7 



;; GENERAL REGISTER 
.•.-GENERAL REGISTER 
;: GENERAL REGISTER 
;; GENERAL REGISTER 
;; GENERAL REGISTER 
.•.-GENERAL REGISTER 
;; GENERAL REGISTER 
.-.-GENERAL REGISTER 
.-.-STACK POINTER 
;; PROGRAM COUNTER 



;*PRIORITy LEVEL DEFINITIONS 

PRO= 0 ;; PRIORI Ty LEVEL 0 

PR1= 40 .-.-PRIORITY LEVEL 1 

PR2= 100 ;;PRIORITY LEVEL 2 

PR3= 140 ; .-PRIORITY LEVEL 3 

PR4= 200 ;, -PRIORITY LEVEL 4 

PR5= 240 ;; PRIORITY LEVEL 5 

PR6= 300 .-.-PRIORITY LEVEL 6 

PR7= 340 ;; PRIORITY LEVEL 7 

.-•"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15= 100000 

SWU= 40000 

SW13= 20000 

SW12= 10000 

SW11= 4000 

SW10= 2000 

SW09= 1000 

SW08= 400 

SW07= 200 



CJKD 
CjKD 
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000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
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SEO 0017 



SU06= 100 

SW05= 40 

SU04= 20 

SW03= 10 

Sy02= 4 

SU01= 2 

suoo= 1 

.EOUIV SU09,SW9 

.EQUIV SU08,SU8 

.EQUIV SW07.SU7 

.EOUIV SU06,SU6 

.EQUIV SU05.SU5 

.EQUIV SW04,SU4 

.EQUIV SU03.SU3 

.EQUIV SW02.SU2 

.EQUIV SUOUSUI 

.EQUIV SUOO.SUO 

;*DATA BIT DEFINITIONS (81 TOO TO BIT15) 

BIT15= 100000 

BIT14= 40000 

81T13= 20000 

BJT12= 10000 

8IT11= 4000 

BIT10= 2000 

BIT09= 1000 

BIT08= 400 

BIT07= 200 

8IT06= 100 

8IT05= 40 

BJT04= 20 

BIT03= 10 

BIT02= 4 

BIT01= 2 

BITOO= 1 

.EQUIV BIT09,BIT9 

.EQUIV BIT08,BIT8 

.EQUIV 8IT07,BIT7 

.EQUIV BIT06,BIT6 

.EQUIV BIT05,8IT5 

•EQUIV BIT04.BIT4 

.EQUIV BIT03,BIT3 

.EQUIV BIT02,BIT2 

.EQUIV BITOl.BITl 

.EQUIV BITOO,BJTO 



OTHER ERRORS 
ILLEGAL INSTRUCTIONS 



'CPU" TRAP VECTOR ADDRESSES 

TIME OUT AND 
RESERVED AND 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) ♦•SCOPE»« 
POWER FAII. 

EMULATOR TRAP (EHT) ••ERROR** 
tRAPVEC=34 .• ;"TRAP" TRAP 



.-•BASIC 

ERRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRTVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PURVEC= 24 
EMTVEC= 30 



CJKOIAO 


n/258 


SLU LTC 


REPR DI 


CJKDIA.P11 


20-0CT-81 


16:08 


( ^ \ 
' I J 




000060 




V 1 J 




000064 








000240 




0' 1 




1 76500 




0' c 




000300 




A7X 

O' J 




000400 




Of H 




000001 




Oi J 




161000 




O' O 




000003 




O' 1 








O'O 








Of ▼ 




000000 












OO 1 








OOc 








OO J 








oot 








0~c 












000014 






00001^ 


012370 




OTr J 


00001 A 


000340 




OT'O 








AO 7 

0~' 




000042 




OTO 


0000 A 7 


000000 












700 








70P 








70^ 








70i 




0001 74 




705 


0001 7A 


000000 




706 


000176 


000000 




707 








708 




000200 




709 


000200 


000137 


003016 


710 


000204 


000137 


015406 


711 


000210 


000137 


01 5664 



F 
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TKVEC= 60 

TPV£C= 64 

PIROVEC=240 

ABASE= 176500 

AVECT1= 300 

AUSUR= 400 

$TN= 1 

$SUR= 161000 

BPT= 000003 



.=0 



SEO 0018 



TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



.•THIS IS THE COMMAND FOR A TRAP 
THROUGH 14 (BPT TRAP) 



***************************************************************** 

;*ALI. UNUSED LOCATIONS FROM 4-776 CONTAIN A ".+2. BPT" 
.-•SEQUENCE TO CATCH ILLEGAL TRAPS t INTERRUPPTS 
.••LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 



.=14 

.WORD 

.WORD 



.WORD 



CATCH 
340 

42 
0 



;THE BPT TRAP VECTOR POINTS TO THE 
ILLEGAL TRAP HANDLER "CATCH" 



DISPREG: 
SURE 6: 



.WORD 
.WORD 

.-200 
JMP 
JMP 
JMP 



174 

0 

0 



START 

ECHO 

OUTTST 



DO INTERFACE TEST 
DO ECHO TEST 
DO OUTPUT TEST 



TO TERMINAL 
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713 
7U 
715 

1 

2 

1 

1 

1 



1 
71 
1 
2 
1 
2 
1 
1 
1 
1 
1 
1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

717 



000046 
000052 



00002A 
OOOOAA 



000500 
000500 
000502 
00050A 
000506 
000510 
000512 



000500 



000500 
000046 
012322 
000052 
000000 
000500 



000500 
000024 
000200 
000044 
000500 
000500 



000000 
001100 
000050 
000060 
000055 
000030 
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SEQ 0019 



.SBTTL 



500 

AC Til HOOKS 



- •••••**********•*••••♦♦*********•*•********•♦••*••••••*••••••••* 

•HOOKS REQUIRED BY ACT11 

$SVPC=. .-SAVE PC 

.=46 

tENDAD ;;1)*^*=T L0C.46 TO ADDRESS OF SENDAD IN .$EOP 

.=52 

.WORD 0 ;;2)S£T L0C.52 TO ZERO 

.=$SVPC ;; RESTORE PC 

.SBTTL APT PARAMETER BLOCK 

■ ■ 1^************************************************************** 

!SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

. - •**•*•♦♦♦♦♦*♦♦*♦*♦♦♦♦♦♦♦♦♦♦♦***•*•*•**»**•********•************ 
.$X=. .-.-SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;;FOR APT START UP 

.=44 ;. -POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;. -POINT TO APT HEADER BLOCK 
. = .$X .-.-RESET LOCATION COUNTER 
• • **»•♦•♦*♦♦♦**«***•*•«***♦*♦*******♦***♦♦*♦**********»♦♦*♦*****• 

;• SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
.-INTERFACE SPEC. 



SAPTHD 
SHIBTS 
$MBADR 
STSTM: 
SPASTM 



.WORD 
.WORD 
.WORD 
.WORD 



SUNITM: .WORD 
.WORD 



0 

SMAIL 

50 
60 
55 



;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
; ADDRESS OF APT MAILBOX (BITS 0-15) 
.-RUN TIM OF LONGEST TEST 

;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 



$ETEND-$MAIL/2 ; ."LENGTH MAILBOX-ETABLE (WORDS) 



CJKO 
CJKD 
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SfO 0020 



001000 
001000 
001002 
001003 
001004 
001006 
001010 
001012 
001 OH 
001015 
001016 
001020 
001022 
001024 
001026 
001030 
001032 
001034 
001035 
001036 
001040 
001042 
001044 
001046 
001050 
001052 
001054 
001055 
001056 
001057 
001060 
001062 
001064 
001066 
001070 
001072 
001074 
001075 
001076 



001100 
001100 
001102 
001104 
001106 



001000 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
1 77562 
177564 
177566 
000 
002 
012 
000 
000000 
000000 
000000 
000000 
000000 
000000 
077 
015 
000012 



.SBTTL COMMON TAGS 

• **************************************************************** 

•iTHlS TABLE CONTAINS VARIOUS COWON STORAGE LOCATIONS 
.••USED IN THE PROGRAM. 



.=1000 

.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
: .WORD 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
:0 

^SCII 
.ASCII 
.ASCIZ 
■ ************* 



SCMTAG: 

STSTNM: 
$ERFLG: 
SICNT: 
SLPADR: 
SLPERR: 
lERTTL: 
SITEMB: 
SERMAX: 
SERRPC : 
SGDADR : 
SBDADR: 
SGDDAT: 
SBDDAT : 



SAUTOB: 
SINTAG: 

SWR: 
DISPLAY 
$TKS; 
STK8: 
$TPS: 
$TPB: 
SNULL : 
SFILLS: 
SFILLC: 
STPFLG: 
STMPO: 
STMPI : 
$TMP2: 
$TMP3: 
$TMP4 : 
SESCAPE 
SQUES: 
SCRLF : 
$LF: 



0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

DSWR 
DDISP 



;; START OF COMMON TAGS 

;; CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

;; CONTAINS SUBTEST ITERATION COUNT 

;; CONTAINS SCOPE LOOP ADDRESS 

;; CONTAINS SCOPE RETURN FOR ERRORS 

.-.-CONTAINS TOTAL ERRORS DETECTED 

.-.-CONTAINS ITEM CONTROL BYTE 

.-.-CONTAINS MAX. ERRORS PER TEST 

.-.-CONTAINS PC OF LAST ERROR INSTRUCTION 

;; CONTAINS ADDRESS OF 'GOOD' DATA 

.-.CONTAINS ADDRESS OF 'BAD' DATA 

;; CONTAINS 'GOOD' DATA 

;; CONTAINS 'BAD' DATA 

.-.-RESERVED— NOT TO BE USED 

.-.-AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOK 

.-.-ADDRESS OF SWITCH REGISTER 
.-.-ADDRESS OF DISPLAY REGISTER 
.-.-TTY KBD STATUS 
.-.-TTY K8D BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
;;TTY PRINTER BUFFER REG. ADDRESS 
.-.-CONTAINS NULL CHARACTER FOR FILLS 
.-.-CONTAINS # OF FILLER CHARACTERS REQUIRED 
;; INSERT FILL CHARS. AFTER A "LINE FEED" 
.-.-"TERMINAL AVAILABLE" FLAG (8IT<07>=0=YES) 
.-.-USER DEFINED 
.-.-USER DEFINED 
.-.-USER DEFINED 
.-.-USER DEFINED 
.-.-USER DEFINED 
.-.-ESCAPE ON ERROR ADDRESS 
; .-QUESTION MARK 
.-.-CARRIAGE RETURN 
.-LINE FEED 



0 
2 

12 
0 
0 
0 
0 
0 
0 

/?/ 
<15> 
<12> 



.SBTTL APT MAI LBOX-E TABLE 



000000 
000000 
000000 
000000 



.EVEN 
$MAIL: 

SMSGTY: .WORD AMSGTY 

SFATAL: .WORD AFATAL 

STESTN: .WORD ATESTN 

SPASS: .WORD APASS 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS C0UN1 
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(2 
(2 
i2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
'2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 



001110 
001112 
0011U 
001116 
001120 
001120 
001121 
001122 
00''124 
001126 



000000 
000000 
000000 
000000 

000 
000 
000000 
OOOAOO 
000000 



001130 
001131 



001134 
001135 
001136 
001 UO 
001U1 
001 U2 
001144 
001145 
001146 
001150 
001152 
001154 
001156 
001160 



000 
000 



001132 000000 



000 

000 
000000 
000 
000 
000000 
000 
000 
000000 
000300 
000000 
1 76500 
000000 
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SEO 0021 



SDEVCT: 

SUNIT: 

SMSGAD: 

WSGLG: 

$ETA8LE; 

$ENV: 

$ENVM: 

SSUREG: 

SUSUR: 

SCPUOP: 

* 

• * 
« 

ilWISI : 
SMTYPI : 

• * 
- * 



.UORD 
.yORD 
.WORD 
.WORD 

.BYTE 
.BYTE 
.UORD 
.UORD 
.UORD 



.BYTE 
.BYTE 



• * 

SnAMS2: 

$HTYP2: 

SnADR2: 

$MAMS3: 

$MTYP3: 

$MADR3: 

$MAMS4: 

$MTYP4: 

$f1ADR4 : 

$VECT1: 

$VECT2: 

SBASE : 

$DEVM: 

SETEND; 

.MEXIT 



.BYTE 
.BYTE 
.UORD 
.BYTE 
.BYTE 
.UORD 
.BYTE 
.BYTE 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 



ADEVCT 
AUNJT 
AMSGAD 
AMSGLG 

AENV 

AENVM 

ASUREG 

AUSUR 

ACPUOP 



AMAMS1 
AMTYP1 



SMADR1: .UORD AflADRI 



AJ1AMS2 

AMTYP2 

Af1ADR2 

AMAMS3 

AriTYP3 

A/1ADR3 

AMAMS4 

A«TYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 



DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
APT SUITCH REGISTER 
USER SUITCHES 
CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 . 1 1 /05=02 . 1 1 /20=03 , 1 1 /40=04 . 1 1 /45=05 
11/70=06. PDO=07, 0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATIN6 POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE.BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC C0RE=001 
300 NSEC BIP0LAR=002 
500 NSEC MOS=003 
;;HIGH ADDRESS .BLK#1 

MEM. LAST ADDR.=3 BYTES, THIS UORD AND LOU OF 'TYPE ABOVE 
HIGH ADDRESS.M.S. BYTE 
MEM. TYPE. 8LK#2 
MEM. LAST ADDRESS. BLK#2 
HIGH ADDRESS.M.S.BYTE 
MEM. TYPE .8LK#3 
MEM. LAST ADDRESS. BLK#3 
HIGH ADDRESS.M.S.BYTE 
MEM.TYPE.BLIC#4 
MEM. LAST ADDRESS. BLK#4 
INTERRUPT VECT0R#1.BUS PRIORI TY#1 
INTERRUPT VECT0R#2BUS PRI0RITY#2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 
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(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

^37 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 
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Seo 0022 



•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

• THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION $ITE^B. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPO. 

•N0TE2 EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS; 







;• EM 
;• DH 
;• DT 
• * DF 




;; POINTS TO THE ERROR MESSAGE 
;; POINTS TO THE DATA HEADER 
; .-POINTS TO THE DATA 
-POINTS TO THE DATA FORMAT 


001160 




SERRTB: 






UU 1 1 Ov 

001160 


000020 


SFRRTB: 

.BLKW 


20 


;THIS BLOCK OF 16 LOCATIONS IS HERE TO PACIFY 


UU 1 ccU 

001222 
001224 
001226 


024731 
025512 
000000 


EMS 
DH5 
DT5 
0 




;SLU1 TCSR DONE NOT SET WITH RESET 
;"TEST# ERR PC TCSR" 
;$TESTN.$ERRPC,CTCSR 


001230 
001232 
001234 

UU 1 CjO 


016052 
024756 
025522 


EM6 
DH6 
DT6 
0 




;SLU1 RCSR DID NOT RETURN SSYNC 
.•••TEST# ERR PC RCSR" 
;$TESTN.$ERRPC.CRCSR 


001240 
001242 
001244 
001246 


016111 
025003 
025532 
000000 


EH7 
DH7 
DT7 
0 




:SLU1 RBUF DID NOT RETURN SSYNC 
; TEST# ERR PC RBUF 
:STESTN,SERRPC.CRBUF 


001250 


000004 


.BLKW 


4 


;MORE PACIFICATION 


001260 
001262 
001264 
001266 


016150 
024731 
025512 

AAAAAA 

000000 


EH11 

DH5 

DT5 

0 




;"CAN NOT SET BIT2 OF SLUI TCSR" 
;"TEST# ERR PC TCSR" 
;$TESTN.$ERRPC,CTCSR 


001270 


000004 


.BLKW 


4 


.•STILL MORE PACIFICATION 


001300 
001302 
001304 
001306 


016206 
024731 
025512 
000000 


EMI 3 
DH5 
DT5 
0 




.-•TRESET DID NOT CLEAR BIT2 OF SLUl TCSR" 
;"TEST# ERR PC TCSR" 
;$TESTN.$ERRPC.CTCSR 


001310 
001312 
001314 
001316 


016254 
024731 
025512 
000000 


EMU 
DH5 
DT5 
0 




;'BIT6 OF SLUI TCSR NOT CLEAR AFTER RESET2 
;"TEST# ERR PC TCSR" 
;$TESTN.$ERRPC.CTCSR 
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ERROR rOINTcR 


10 1 






EMI 5 


IOC 


UU 1 jc\J 


ni A7?4 


7 AX 

rOJ 


001 TP? 


0?4771 
UcH ' J 1 


DH5 


76A 


001 324 


025512 


nrC 


76S 


001326 


000000 


0 


foo 






EMI 6 


'Of 


001 T70 


Ol A77? 


r 00 


noi 77? 


0?4771 


DHS 


7A0 


001 774 
UU 1 J J"* 


0?SS1? 




f f\J 
771 


nm 77A 

UU 1 J JO 


nonooo 
uuuuuu 


0 


f f 1 

773 

lie 


noi 740 
UU 1 jmU 


01 A470 
U 1 OH JU 


EMI 7 


77T 

1 1 J 


001 74? 

UU 1 JHC 


n?47^i 

VCH f J 1 


DH5 


77L 


001 T44 


0?551? 


n T C 

DT5 


77^ 

f f J 


001 ^4A 
UU 1 J*<0 


000000 

UUUvvv 


0 


77A 






EM20 


777 

Iff 


001 7S0 

UU 1 J^U 


01*^470 

V 1 OH f V 


77R 


001 7S? 


n?4771 

UCH f J 1 


DN? 


770 

f f y 


001 ^54 


OP551? 

\JCJ J I c 




7Rn 


001 7S/< 
vU 1 J JO 


000000 

Uvvvvv 


A 


7R1 






Efl21 


7R? 


001 7^^o 


V 1 J JSj 


7R7 


001 ^fi? 


0P4756 


DHO 


784 


001 ^64 

\/v 1 


0PS522 


U 10 


f Oj 


001 

UU 1 JOO 


000000 

vvvvvv 


A 


r OO 






En22 


7R7 

f Of 


001 770 

UU 1 J f V 


01 ^^0^ 

V I UUvD 


7RR 

f OO 


001 ^7? 

VV \ Jl C 


0P4756 


DHo 


789 


001 ^74 

VV 1 J f 


0P5522 


DTo 


7on 


001 77^> 

U V 1 J f O 


000000 

vvvvvv 


A 


701 

f y 1 






Efl23 


70? 
f yc 


001400 

Uv 1 Hvv 


01665? 


/O^ 


00140? 

VV 1 H VC 


0P4756 

Vfc " » 


DHo 


704 


001404 


02552? 

VC V c 


DTo 


70S 

f y J 




000000 

VVV vvv 


A 
U 


f yo 






EH24 


7Q7 
f y f 


001^10 


01^^*710 

V 1 O * IV 


708 

f TO 


00K1P 


0P4756 

VC " • w 


DHo 


790 


001A14 

VV 1 ~ 1 ~ 


025522 

VC c 


DTo 




00141^ 


000000 

Vvvvvv 


A 
0 


80 1 






EH25 


80P 
o\jc 


001 4?0 

Uv 1 He V 


016750 

V 1 V f ^ w 


80^ 


0014?? 


0P4756 


DHo 


804 


001424 


025522 

VC ^ ^CC 


DTo 


80S 


001 4?A 

VV 1 HCU 


000000 

Uvvvvv 


A 


80^ 






En26 


807 


OOK'^O 

W 1 Jv 


0170P3 

V 1 f vC .J 


808 




0?4756 


DH6 


809 


001434 

VV ' ~ 


025522 

VC > cc 


DTo 


810 


00U36 


000000 


A 


811 






FM?7 


812 


OOKAO 


017060 


813 


00UA2 


024756 


DH6 


8U 


00U4A 


025522 


DT6 


815 


001446 


000000 


0 


816 
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;'SLU1 XWIT INTERRUPTED WITH PRIORITY 7" 
.•••TEST* ERR PC TCSR'^ 
;$TESTN.$ERRPC.CTCSR 



;"CAN NOT SET BIT6 OF SLUl TCSR*^ 
;"TEST# ERR PC TCSR" 
;$TESTN.$ERRPC.CTCSR 



;"CAN NOT CLEAR 81 T6 OF SLUl TCSR" 
;"TEST# ERR PC TCSR'^ 
.•$TESTN,$ERRPC,CTCSR 



.•"RESET DID NOT CLEAR BIT6 OF SLUl TCSR^' 
;"TEST# ERR PC TCSR^^ 
;$TESTN.$ERRPC.CTCSR 



;'BIT6 OF SLUl RCSR NOT CLEAR AFTER RESET'^ 
;"TEST# ERR PC RCSR" 
;STESTN.$ERRPC.CRCSR 

;"SLU1 RCVR INTERRUPT WITH PRIORITY 7" 
;"TEST# ERR PC RCSR'^ 
;$TESTN,SERRPC.CRCSR 

.-'•CAN NOT SET BIT6 OF SLUl RCSR^' 
.••TEST* ERR PC RCSR'^ 
;$TESTN.$ERRPC.CRCSR 



.-"CAN NOT CLEAR BIT6 OF SLUl RCSR' 
;"TEST# ERR PC RCSR" 
;$TESTN.$ERRPC,CRCSR 



.-"CAN NOT CLEAR 81 T6 OF SLUl RCSR WITH RESET2 

:"T£ST# ERR PC RCSR" 

;$TESTN.$ERRPC.CRCSR 



;"SLU1 RECEIVER DONE NEVER SET* 
.•••TEST* ERR PC RCSR" 
;$TESTN.$ERRPC.CRCSR 



;^T?ESET DID NOT CLEAR SLUl RCVR DONE" 
.•••TEST* ERR PC RCSR" 
;$TESTN.$ERRPC.CRCSR 
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81' 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 



001450 
001452 
001454 
001456 

001460 
001462 
001464 
001466 

001470 
001472 
001474 
001476 

001 500 
001502 
00150; 
001506 

001510 
001512 
001514 
001516 

001520 
001 522 
001524 
001526 

001530 
001532 
001 534 
P01536 

001540 
001542 
001544 
001546 

001550 
001552 
001554 
001556 

001 560 
001562 
001564 
001566 

001570 
001572 
001574 
001576 



017123 
024756 
025522 
000000 

017175 
024731 
025542 
000000 

017234 
025030 
025552 
000000 

017273 
024731 
025542 
00^000 

017345 
024731 
025542 
000000 

017413 
024731 
025542 
000000 

017455 
024756 
025562 
000000 

017514 
025003 
025572 
OPOOOO 

017553 
024731 
025542 
000000 

017623 
024731 
025542 
000000 

017661 
024731 
025542 
000000 



001600 017721 
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EH30 
DH6 
DT6 
0 

EH31 

DH3 
DT31 
0 

EM32 
DH32 
DT32 
0 

EM33 
DH5 
0T31 
0 

EM34 
DH5 
0T31 
0 

EM35 
DH5 
DT31 
0 

En36 
DH6 
0T36 
0 

EM37 
DH7 
DT37 
0 

EM40 
DH5 
DT31 
0 

EM41 
DH5 
DT31 
0 

En42 
DH5 
0T31 
0 

En43 
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.•"READING SLUl RBUF DID NOT CLEAR RCVR DONE' 
;' TEST* ERR PC RCSR" 
;$TESTN,$ERRPC,CRCSR 



SEO 002:4 



:SLU2 TCSR DID NOT RETURN SSYNC 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC.TCSR 



;SLU2 T8UF DID NOT RETURN SSVNC 
;"TEST# ERR PC TBUF" 
;$TESTN,$ERRPC.T8UF 



;"SLU2 TCSR DONE NOT CLEARED WITH TBUF FULL' 
."TEST* ERR PC TCSR" 
;$TESTN,$ERRPC,TCSR 



;"SLU2 TCSR DONE NOT SET AFTER TRANSMIT" 
.•"TEST* ERR PC TCSR" 
;$TESTN,$ERRPC,TCSR 



;"SLU2 TCSR DONE NOT SET WITH RESET' 
;"TEST# ERR PC TCSR" 
;$TESTN,ERRPC.TCSR 



;"SLU2 RCSR DID NOT RETURN SSYNC' 
;"TEST# ERR PC RCSR" 
;$TESTN,ERRPC,RCSR 



;SLU2 RBUF DID NOT RETURN SSYNC' 
.•"TEST* ERR PC RBUF" 
.•$TESTN,ERRPC.RBUF 



;'BIT0 OF SLU2 TCSR NOT CLEAR AFTER RESET' 
;"TEST# ERR PC TCSR 
;$TESTN.$ERRPC,TCSR 



;"CAN NOT SET 61 TO OF SLU2 TCSR' 
.-"TEST* ERR PC TCSR 
;$TESTN,$ERPPC.TCSR 



;"CAN NOT CLEAR 81 TO OF SLU2 TCSR" 
;"TEST# ERR PC TCSR 
;$TESTN.$ERRPC.TCSR 



:"RtSET DID NOT CLEAR BITO OF SLU2 TCSR' 
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EDOnO PniMTFB 
CnnUN rViniCn 


873 


001 602 


024731 


ifnj 


87A 


001604 


025542 




875 


001 606 


000000 


0 


876 






EM44 


877 


001610 


017767 


878 


001612 


024731 


nu't 
unj 


879 


001614 


025542 




880 


001616 


000000 


n 
\j 


881 






EM45 


882 


001620 


020037 


883 


001622 


024731 




88A 


001624 


025542 


riTTl 


885 


001626 


000000 


0 

V 


886 






EM46 


887 


001630 


020105 


888 


001632 


024731 




889 


001634 


025542 




890 


001636 


000000 


0 

V 


891 






EM47 


892 


001640 


020143 


893 


001642 


024731 




894 


001644 


025542 




895 


001646 


000000 


0 


896 






EM50 


897 


001650 


020203 


898 


001652 


024731 


i/n J 


899 


001654 


025542 




900 


001656 


AAAAAA 
000000 


0 


901 






EM51 


902 


001660 


020251 


903 


001662 


024756 


vnQ 


904 


001664 


025562 


V 1 JO 


905 


001666 


000000 


n 


906 

907 


001670 


020321 


cnjc 


908 


001672 


024756 


l/no 


909 


001674 


025562 


nT3A 


910 


001676 


000000 


0 


911 








912 


001700 


020365 




913 


001 702 


024756 


uno 


9U 


001 704 


025562 


V 1 JQ 


915 


001706 


000000 


n 
\i 


916 








917 


001710 


020423 


EM54 


918 


001712 


024756 


DMA 


919 


001714 


025562 


V 1 jO 


920 


001716 


000000 


0 


921 






FMS5 


922 


001 720 


020463 


923 


001722 


024756 


DMA 


924 


001724 


025562 


DT36 


925 


001726 


000000 


0 


926 








927 


001730 


020536 


EM56 


928 


001732 


024756 


DH6 
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SEQ 0025 



.••7EST# ERR PC TCSR 
;$TESTN.$ERRPC.TCSR 



;'BIT6 OF SLU2 TCSR NOT CLEAR AFTER RESET2 
;"TEST# ERR PC TCSR 
;$TESTN,$ERftPC,TCSR 



;"SLU2 XMIT INTERRUPTED WITH PRIORITy 7" 
;"TEST# ERR PC TCSR 
;$TESTN.$ERRPC,TCSR 



;"CAN NOT SET 81 T6 OF SLU2 TCSR" 
.•"TEST* ERR PC TCSR 
;$TESTN.$ERRPC.TCSR 



;"CAN NOT CLEAR BIT6 OF SLU2 TCSR" 
;"TEST# ERR PC TCSR 
;$TESTN.$ERRPC.TCSR 



; "RESET DID NOT CLEAR BIT6 OF SLU2 TCSR' 
;'7EST# ERR PC TCSR 
;$TESTN.$ERRPC.TCSR 



;'BIT6 OF SLU2 RCSR NOT CLEAR AFTER RESET* 
;'TEST# ERR PC RCSR" 
;$TESTN,EfiRPC,RCSP 



;"SLU2 RCVR INTERRUPT WITH PRIORITY 7" 
;"TEST# ERR PC RCSR" 
;$TESTN,ERRPf,RCSR 



.-"CAN NOT SET 81 T6 OF SLU2 RCSR' 
;"TEST# ERR PC RCSR" 
;$TESTN.ERRPC.RCSR 



;"CAN NOT CLEAR BIT6 OF SLU2 RCSR" 
.-"TEST* ERR PC RCSR" 
;$TESTN,ERRPC,RCSR 



."CAN NOT CLEAR 81 T6 OF SLU2 RCSR WITH RESET2 

;"TEST# ERR PC RCSR" 

;$TESTN.ERRPC,RCSR 



;"SLU2 RECEIVER DONE NEVER SET' 
;"TfcST* ERR PC RCSR" 
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929 


001 734 


025562 


9:0 


001 736 


000000 


931 
932 


001740 


020573 


933 


001742 


024756 


934 


001 744 


025562 


935 


001 746 


000000 


936 






937 


001750 


020636 


938 


001 752 


024756 


939 


001 754 


025562 


940 


001756 


000000 


941 






942 


001 760 


020710 


943 


001762 


025C55 


944 


001 764 


025602 


945 


001 766 


000000 


946 






947 


001770 


020741 


948 


001772 


025055 


949 


001774 


025602 


950 


001776 


000000 


951 






952 


002000 


021003 


953 


002002 


025055 


954 


002004 


025602 


955 


002006 


000000 


956 






957 


002010 


021041 


958 


002012 


025055 


959 


002014 


025602 


960 


002016 


000000 


961 






962 


002020 


021071 


963 


002022 


025055 


964 


002024 


025602 


965 


002026 


000000 


966 




021123 


967 


002030 


968 


002032 


025055 


969 


002034 


025602 


970 


002036 


000000 


971 






972 


002040 


021163 


973 


002042 


025055 


974 


002044 


025602 


975 


002046 


000000 


976 






977 


002050 


021223 


978 


002052 


025055 


979 


002054 


025602 


980 


002056 


000000 


981 






982 


002060 


021255 


983 


002062 


025055 


984 


002064 


025602 
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DT36 

0 

EH57 
DH6 
DT36 
0 

Ef160 
DH6 
DT36 
0 

EM61 
DH61 
DT61 
0 

EM62 
DH61 
DT61 
0 

EM63 
DH61 
DT61 
0 

EM64 
DH61 
DT61 
0 

EM65 
DH61 
DT61 
0 

En66 
DH61 
DT61 
0 

EM67 
DH61 
DT61 
0 

EM70 
DH61 
DT61 
0 

E«71 
DH61 
DT61 
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;$TESTN,EPRPC,RCSR 



SEO 0026 



.-"RESET DID NOT CLEAR SLU2 RCVR DONE' 
;"TEST# ERR PC RCSR" 
;$TESTN,ERRPC.RCSR 



;'1^EADIN6 SLU2 R8UF DID NOT CLEAR RCVR DONE' 
;"TEST# ERR PC RCSR" 
;$T£STN,ERRPC,RCSR 



;LKS DID NOT RETURN SSYNC 
.•"TEST* ERR PC LKS" 
;$TESTN.ERRPC.LKS 



;'BIT6 OF LKS NOT CLEAR AFTER RESET' 
;"TEST# ERR PC LKS" 
;$TESTN.$ERRPC.LKS 

;"LKS INTERRUPT WITH PRIORITY 7" 
;"TEST# ERR PC LKS" 
;$TESTN.$ERRPC,LKS 



;"CAN NOT SET 81 T6 OF LKS' 
;"TEST# ERR PC LKS" 
;$TESTN,$ERRPC,LKS 



;"CAN NOT CLEAR 81 T6 OF LKS" 
;"TEST# ERR PC LKS" 
;$TESTN,$ERRPC.LKS 



.••PRESET DID NOT CLEAR BIT6 OF LKS" 
;"TEST# ERR PC LKS" 
;$TESTN.$ERRPC.LKS 

;'BIT7 OF LKS NOT SET AFTER RESET2 
.-"TEST* ERR PC LKS" 
;$TESTN.$ERRPC.LKS 

;"CAN NOT CLEAR 8IT7 OF LKS" 
;"TEST# ERR PC LKS" 
;$TESTN.$ERfiPC.LKS 



.••BIT7 OF LKS DOES NOT SET' 
;"TEST# ERR PC LKS" 
;$TfcSTN.$ERRPC.LKS 
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www 


0 








EMI 02 


10?S 


OOP 170 


0P1^6^ 

vC 1 Owt 


10?A 


00P1 7P 


OP47^1 

wc » J 1 


0H5 


10?7 

1 wc ' 


00P174 


025512 

VC V ^ 1 c 


0T5 


10?R 
1 wcO 


00?17^^ 

UUC 1 r U 


000000 
wwwu 


0 


10?9 

( wc T 








10^0 

I w Jw 


00??00 

VvC C vV 


0?1 736 

VC ' ' •JyJ 


EMI 03 


10^1 


00??0? 

vVC C VC 


024756 

vC ~ ' ^ W 


DH6 


10^? 


00??04 

VVC C V"* 


0?5522 

VC ^ ^C c 


DT6 


10^5 


00??06 
wc c 


000000 

vwwv V 


0 


1034 








1035 


002210 


022005 


PMi A/ 

EMI 04 


1036 


002212 


024756 


UnO 


1037 


002214 


025522 


0T6 


1058 


002216 


000000 


0 


1039 








1040 


002220 


022041 


EM105 



B 3 

16:42 PAGE 7-7 

SEQ 0027 



WRITING TO ONE INTERNAL ADDRESS MODIFIED ANOTHER 
"TEST# ERR PC GOOD BAD GDDATA BDDATA 
$TESTN,SERRPC, SGDADR , $6DADR , SGDD A T , S6DDA T 



;THE LAST IN A LONG LINE OF PACIFICATION 



;"SLU1 XMIT INTERRUPTS WHEN DISABLED' 
.-"TEST* ERR PC TCSR" 
;$TESTN,$ERRPC,CTCSR 



;"SLU1 XMIT DID NOT INTERRUPT* 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC.CTCSR 



;"SLU1 XMIT INTERRUPT AT PRIORITY 7" 
;"'TEST* ERR PC TCSR" 
;$TESTN,$ERRPC.CTCSR 



;"SLU1 XMIT INTERRUPTS WITH ENABLE CLEAR" 
;"TEST# ERR PC TCSR" 
;$TESTN.$ERRPC,CTCSR 



;"SLU1 XMIT DID NOT INTERRUPT' 
;"TEST# ERR PC TCSR" 
;$TESTN,$£RRPC.CTCSR 



;"SLU1 XMIT RE-INTERRUPTED' 
;"TEST# ERR PC TCSR" 
;$TESTN.SERRPC.CTCSR 



;'tOA0IN6 SLU1 TBUF DID NOT CLEAR INTERRUPT* 
;"TEST# ERR PC TCSR" 
;$TESTN.$ERRPC,CTCSR 



;"SLU1 RCVR INTERRUPTS WITH ENABLE CLEAR* 
."TEST* ERR PC RCSR" 
;$TESTN,$ERRPC,CRCSR 



;"SLU1 RCVR DID NOT INTERRUPT' 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC.CRCSR 



;"SLU1 RCVR INTERRUPTS AT PRIORITY 7" 



JKDIAO n/25B SLU LTC REPR DUG 
JKDIA.PII 20-OCT-81 16:08 



DNMAC X24. 07-563 02-FEB-82 
ERROR POINTER TABLE 



C 3 



10A1 


002222 


024756 


DH6 


1CA2 


002224 


025522 


DT6 


1043 


002226 


A >^ /\ A A A 

000000 


0 


10A4 






C Ml A^ 


10A5 


002230 


022104 


10A6 


002232 


024756 


Al 1^ 

DH6 


1047 


A A ^ ^ 7 i 

002234 


025522 


D To 


1048 


002236 


A A A AAA 

000000 


0 


1049 








l050 


002240 


A A A 4 d. C 

022165 


1051 


002242 


A A ^ 7f y 

024756 


DH6 


1052 


AA^ ^ t i 

002244 


025522 


D 1 6 


1053 


002246 


AAAA kA 

OOOOuO 


0 


1054 








1055 


002250 


A A ^ A A 4 

022221 


1056 


002252 


024756 


OHO 


1057 


A A "^C / 

002254 


AlC C 

025522 


D 1 0 


1058 


A A 'S^C ^ 

002256 


A A A A A A 

000000 


0 


1059 






En 1 1 1 


1060 


A A*^ y A 

002260 


A A A r z 

022256 


1061 


A A-S 

002262 


A"^ / 7CZ 

024756 


DHO 


1062 


AA*^ / 

002264 


AOCCT3 

023322 


1 0 


1063 


002266 


AAAAAA 

000000 


0 


1064 








1 A^ C 

1065 


A A ^ T7A 

002270 


A"^ TTA 

022330 


1 A^Z 

1066 


002272 


024/^56 


Ono 


i A^ 

1067 


002274 


025522 


V 1 o 


1068 


AAT^7Z 

002276 


AAAAAA 

000000 


A 


4 A^ A 

1069 






cm 1 7 


« A^A 

1070 


AA^ V A A 

002300 


A AO/ A A 

022400 


1071 


AA*^ TA*5 

002502 


A^/ 

024756 


Ono 


1072 


A Al *?A/ 

002304 


025522 


0 1 0 


1073 


AAT7 AZ 

002506 


AAAAAA 

000000 


0 


4 A 7 / 

1074 








4 A 

1075 


A A 7 4 A 

002310 


AOO/ 

022433 


cni 14 


4 A^y 

1076 


A A"^ 74"^ 

002312 


A1/ 

024756 


DHO 


107r 


002314 


025522 


P 10 


4 A*70 

1078 


AA^94 A. 

002316 


AAAAAA 

000000 


A 

0 


4 A7A 

1079 






tni 1 5 


4 AOA 

1080 


A A ^ T A 

002320 


ATI/ TT 

022477 


4 AO 4 

1081 


AA"^ 1"^ 1 


0251 5/^ 


OHI 15 


4 AO 1 

1082 


AAT TT/ 

002324 


025630 


DTI 15 


4 AO 7 

1085 


00^326 


AAAAAA 
000000 


0 


4 AO/ 

1084 








4 AOC 

1085 


AA*^ T T A 

002330 


022522 


cm 1 
tfll lo 


4 AOZ 

1086 


002332 


024731 




1 AO 7 


UUc5j4 


U£55»»^ 




4 AO O 

1088 


002336 


AAAAAA 

000000 


A 

U 


4 Aon 

1089 






FM1 17 


1000 




Ucc3D J 


1091 


002342 


024731 


DH5 


1092 


002344 


025542 


DT31 


1093 


002346 


000000 


0 


1094 








1095 


002350 


022621 


EMI 20 


1096 


002352 


024731 


DH5 



16:42 PAGE 7-8 



.•"TEST* ERR PC RCSR' 
;$TESTN,$ERRPC.CRCSR 



SEQ 0028 



;"SLU1 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR" 

;"TEST# ERR PC RCSR" 

;fTESTN,$ER«PC.CRCSR 



;"SLU1 RCVR DID NOT INTERRUPT* 
;"TEST# ERR PC RCSR" 
;$TESTN.$ERRPC,CRCSR 



;"SLU1 RECEIVER RE-INTERRUPTED' 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,CRCSR 



;"SLU1 READING RBUf DID NOT CLEAR INTERRUPT' 
.-"TEST* ERR PC RCSR" 
;fTESTN,$ERRPC,CRCSR 



.•"RESET DID NOT CLEAR SLUl RCVR INTERRUPT" 
;"TEST# ERR PC RCSR" 
;$TESTN.$ERRPC.CRCSR 



"SLUl 'OR' FLAG DID NOT SET" 
"TEST* ERR PC RCSR" 
$TESTN,$ERRPC.CRCSR 



;"SLU1 'ERROR* NOT SET WITH 'OR' FLAG" 
.-"TEST* ERR PC RCSR" 
;$TESTN,$ERRPC.CRCSR 



;"DATA COMPARE ERROR" 

;"TEST# ERR PC CRCSR GOOD BAD' 

: STESTN,SERRPC , CRCSR ,GD ,6D 



"SLU2 XMIT INTERRUPTS WHEN DISABLED' 
■7EST# ERR PC TCSR" 
$TESTN.$ERRPC,TCSR 



"SLU2 XMIT DID NOT INTERRUPT' 
'7EST# ERR PC TCSR" 
$TESTN,$ERRPC.TCSR 



;"SLU2 XMIT INTERRUPT A^ PRIORITY 7" 
.-"TfcST* ERR PC TCSR" 



CJKDI AO 


11/238 


SLU LTC 


RtP" OIAG 




VOL n?-^ 


C JKDl A. 


P11 20-0CT-81 


IX. AB 




DO imtpd 


1097 




025542 






nT71 


1098 


UUc J JO 


nnnnnn 






A 

u 


1099 










cn 1 c 1 


11 00 


\J\JC Jf}\J 


C??663 






1101 


00?^6? 


024731 






DH5 


1 102 


002364 


025542 






l\T71 


1103 










u 


i i A/ 










cn 1 cc 


1 1 AC 

mOd 










1 ^06 


(jO?\7? 


024731 






DH5 


1 107 


002374 


025542 






f\Tl1 


1108 


002376 


000000 






u 


1 1 A^ 

11 09 










EMI 23 


1110 


003400 


022766 

VC b f WW 






nil 


00240? 


024731 






DH5 


1112 


002404 


025542 






OlJl 


1117 

1113 

4 11/ 


002406 


000000 






A 

u 


1114 
1115 


00P410 


023017 






EMI 24 


1116 


002412 


024731 






DH5 


1117 


002414 


025542 






V 1 J 1 


1 1 1 O 

1118 

1 1 1 n 


002416 


000000 

WWW 






A 

U 


Illy 


002420 


023071 






FM1 ?^ 


1 1 O 1 
ll^l 


002422 


024756 






DH6 


1 1 0*5 


002424 


025562 






1; I JO 


1 1 ^7 


002426 


000000 

www 








1124 










cn 1 CO 




002430 


023140 






1 126 


002432 


024756 






DH6 


1 127 


002434 


025562 






U 1 jO 


1 1 "^O 

1 128 


002436 


000000 

www 






A 

U 


1129 










cn 1 cf 


1 1 3U 


002440 


023174 






1 1 51 


002442 


024756 






DH6 


1 1 32 


002444 


025562 






nT7A 
1; 1 jO 


1 1 33 


002446 


000000 






A 

U 


1 1 T / 

11 










cn iju 




002450 


023237 






1 i 7Z 

1 136 


002452 


024756 






DH6 


1 I 77 

1 137 


002454 


025562 






nT7A 


1 1 70 

1 1 38 


002456 


000000 

WWW 






A 

U 


1 1 7Q 

1 139 










cn 1 J 1 


1 1 / A 


002460 


023320 






11/1 

1141 


002462 


024756 






DH6 


1 142 


002464 


025562 






U 1 00 


11/7 

1143 


002466 


000000 

W w w w 






A 

u 


11// 
1 1 44 










cn 1 jc 


1145 


002470 


023354 






1 1 / z 
1146 


002472 


024756 






VnO 


11/7 


002474 


025562 






IM7A 
V 1 00 


1 1 / D 

1 148 


002476 


000000 






A 
U 


1 1 












1150 


002500 


023411 






EM133 


1151 


002502 


024756 






DH6 


1152 


002504 


025:62 






DT36 



0 3 

02-FEB-82 16:42 PAGE 7-9 



3EQ 0029 



;$TESTN,$£RRPC,TCSR 



.■••SLU2 XMIT INTERRUPTS WITH ENABLE CLEAR' 
;"TEST# ERR PC TCSR" 
;$TESTN.$ERRPC.TCSR 



.•••SLU2 XMIT DID NOT INTERRUPT' 
;"TEST* ERR PC TCSR" 
;$TESTN,$ERRPC,TCSR 



;"SLU2 XMIT RE-INTERRUPTED' 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC.TCSR 



.•"LOADING SLU2 T8UF DID NOT CLEAR INTERRUPT" 

;"TEST# ERR PC TCSR" 

;$TESTN.$ERRPC,TCSR 



;"SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR" 
.-"TEST* ERR PC RCSR" 
;$TESTN.$ERRPC.RCSR 



;"SLU2 RCVR DID NOT INTERRUPT' 
.•"TEST* ERR PC RCSR" 
;$TESTN,$ERRPC.RCSR 



;"SLU2 RCVR INTERRUPTS AT PRIORITY 7' 
;"TEST# ERR PC RCSR" 
;$TESTN.$ERRPC.RCSR 



;"SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR" 

;"TEST# ERR PC RCSR" 

;$TESTN,$ERRPC.RCSR 



;"SLU2 RCVR DID NOT INTERRUPT" 
;"TEST# ERR PC RCSR" 
.•$TESTN.fERRPC,RCSR 

;"SLU2 RECEIVER RE-INTERRUPTED" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC.RCSR 



;"SLU2 READING RBUF DID NOT CLEAR INTERRUPT' 
;"TEST# ERR PC RCSR" 
;$TtSTN,$ERRPC.RCSR 



E 3 

DNHAC 07-563 02-FEB-82 16:42 PAGE 7-10 



CJtcDlA.PlI 20-OCT-81 16:08 


ERROR POINTER 


1 1 C7 
1 1 c/ 


UO^iUo 


AAAAAA 


0 


1 1 5*» 




A07/. A7 


EMI 34 




\A)CJ 1 C 


AO/ 7CA 
UcHf 50 


DH6 


11^7 




Uc J jOc 


DT36 






www 


0 


1 1 CO 






EMI 35 


1 1 ^.n 

nou 




AD7C77 


1 1 Ai 
1 10 1 




UcH ' jO 


DH6 




UUt JCM 


Uc J JOc 


DT36 




nA9C?A 

UUc JcO 


www 


0 


1 1 AL 

1 iOh 






EMI 36 


1 1 AC 

1 1 03 


UUc J jU 


UcJ jOO 


1 1 AA 




n5A7SA 
Uc«t 1 jO 


DH6 


1 1 

1 1 o> 


nn?*>X^ 




DT36 


1 1 00 


nA5C 7A 
UUc J 30 




0 


1 1 AO 






EMI 37 


1 1 7n 




n?7A7P 
jO 


1171 




n?*;?P7 


DH137 


1 1 7? 

lire 






DT137 


1 1 7X 


rtApC/ A 
UUc J*»0 


WWV/iJ 


0 


1 1 7A 
1 1 f H 








1 1 7C 


AApCCA 


n?77ni 

\jCji y) 1 


EMI 40 


1 1 7/s 




Ap/ 7SA 
UcH 'JO 


DH6 


1 1 77 




0?55?? 


DT6 


1 1 7a 

1 \ to 


UUc J JO 




0 


1 1 70 
1 1 fy 






EM141 


1 1Hfl 
1 1 0\J 


AApCAfl 
UUc JOU 




1 1R1 


UV/c JOc 


WCH ' JU 


DH6 


1 1 OC 


nnpsA^ 

UV/C JO*» 


n?55AP 

vc J JOc 


DT36 


1 1 

1 1 OJ 


UUc joo 


nnnnnn 


0 


1 1 fl^ 






EM142 


1 1 


nn?s7n 


Uc*» vW J 


1 1 RA 
1 1 OO 


nn?s7? 


n?';?An 

\jcjco\j 


DH142 


1 1R7 

MO' 


nn?S7^ 


UC JU JU 


DT142 


1 1 RR 


nn?^7A 

Uv£ J r O 


nnnnnn 


0 


1 1 RQ 






EMI 43 


1 1 on 

1 1 y\} 


UUcOUU 


n7^n^7 

UCHUH J 


1 1 01 


AApAn? 


npsnss 


DH61 


1 1<3? 


noPAn^ 

vvcOUH 


A?SA05 
vC Juv£ 


DT61 


1 1 QT 


AA^AOA 
UUC OUO 


nnnnnn 


0 










HQ"; 
1 1 yj 


vUcO 1 \J 


np^n77 


EMI 44 


1 1 0A 

1 1 TO 


V/UcO 1 C 


np^nss 

VC Jv J J 


DH61 


1 197 


nopAK 


OP560P 


DT61 


1 1 TO 


00PA1 A 


000000 

vV/v vV/V/ 


0 


1 1 0Q 

1 1 T T 








1 pon 


noPAPrt 

UUcOcU 




EM145 


ipni 

1 cu 1 






DH61 


1202 


002624 


025602 


DT61 


1203 


002626 


000000 


0 


120A 








1205 


002630 


024170 


EM146 


1206 


002632 


025055 


DH61 


1207 


002634 


025602 


DT61 


1208 


002636 


000000 


0 



SEO 0030 



.•"RESET DID NOT CLEAR SLU2 RCVR INTERRUPT' 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC.RCSR 



;"SLU2 'OR' FLAG DID NOT SET' 
.••'TEST# ERR PC RCSR" 
.-STESTN.SERRPCRCSR 



;"SLU2 'ERROR' NOT SET WITH 'OR' FLAG' 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



;"SL'J2 BREAK DID NOT TRANSMIT ALL ZEROES' 
;"TESTy» ERR PC RCSR DATA" 
;$TESTN.$ERRPC,RCSR,$8DDAT 



.-'BREAK DID NOT SET FRAMING ERROR' 
.-"TEST* ERR PC RCSR" 
;$TESTN.$ERRPC,RCSR 



;"SLU2 'ERROR' NOT SET WITH 'FR' FLAG' 
;"TEST# ERR PC RCSR" 
;STESTN,SERRPC,RCSR 



.•"DATA COMPARE ERROR WITH CABLE" 
.•"TEST* ERR PC RCSR GOOD BAD' 
;$TESTN.$ERRPC.RCSR.GD.BD 



;"RTC INTERRUPT AT PRIORITY 7" 
;"TEST# ERR PC LKS" 
;$TESTN.$ERRPC,LKS 



;'7»TC INTERRUPTS WHEN DISABLED" 
;"TEST# fcRR PC LKS" 
;$TESTN.$ERRPC,LKS 



;'T^TC INTERRUPT DID NOT OCCUR' 
;"TEST# ERR PC LKS" 
;$TESTN.$ERRPC,LKS 



;"RTC INTERRUPT DID NOT OCCUR' 
;"TEST# ERR PC LKS" 
;$TESTN,$ERRPC.LKS 



CJK.DIAO n/23B SLU LTC REPR DIA6 
CJKDIA.PIl 20-OCT-81 16:08 



ONHAC X24. 07-563 02-FEB-82 
ERROR POINTER TABLE 



3 

16:42 



PAGE 7-11 



SEO 003' 



1209 






Eni4r 


1210 


002640 


024224 


1211 


002642 


025055 


Dh61 


1212 


002644 


025602 


D To 1 


1213 


002646 


OOCOOO 


0 


1214 






(TMI CA 

EMI 50 


1215 


002650 


024251 


1216 


002652 


025055 


DHo 1 


1217 


002654 


025602 


Diol 


1218 


002656 


AA/\ 

000000 


A 


1219 






EMI 51 


1220 


002660 


024313 


1221 


002662 


025055 


DH6i 


1222 


002664 


025602 


DToi 


1223 


002666 


000000 


A 
0 


1224 








1225 






cm CT 


1226 


002670 


024422 


1227 


002672 


025157 


DH 1 1 5 


1228 


002674 


A1 C Z T A 

025630 


l\T1 1 <> 


1229 


002676 


AAA AAA 

000000 


A 

U 


1230 






EMI 5*» 


1231 


002700 


024455 


1232 


002702 


025260 


DH 1 Si 


1233 


002704 


025656 


r\T1 LI 


1234 


002 '06 


000000 


A 

U 


1235 








1236 






cn 1 30 


1237 


002710 


024545 


1238 


002712 


A'^ c 1 

025157 


PH 1 15 


1239 


002714 


023630 


r\T1 1 C 

V \ \ \ i 


1240 


002716 


A A AAAA 

000000 


0 


1241 






cm c 7 


1242 


002720 


024612 


1243 


002722 


025361 


r\Li1 ci: 
DH 1 55 


1244 


002724 


A'^C ^ "^A 

025670 


nr 1 C7 

D1 1 5f^ 


1245 


002726 


000000 


A 

0 


1246 






cm L.f\ 


1247 


002730 


024647 


1248 


002732 


025260 


DHl^i 


1249 


002734 


A'^ CZ. C ^ 


Df 1m£ 


1250 


AA^ 

002736 


A A AAAA 

000000 


A 
0 


4 P 4 

1251 








1252 


002740 


y ^4 y 

024714 


EM161 


1253 


002742 


A y 

025425 


DH161 


1254 


002744 


/\ ^ c ^A y 

025704 


DT16I 


1255 


002746 


y\/\ AAAA 

000000 


A 

0 


1256 








1257 






.REGISlcrt AODRcSScS OF 


id JO 






RCSR: .WORD 176500 


1259 


002750 


1 76500 


1260 


002752 


176502 


RBUF: .WORD 176502 


1261 


002754 


176504 


TCSR: .WORD 176504 


1262 


002756 


176506 


TBUF: .WORD 176506 


1263 


002760 


177560 


CRCSR: 177560 


1264 


002762 


1 77562 


CRBUF: 177562 



;'1?TC DOUBLE INTERRUPT' 
;"TEST# ERR PC LKS" 
;$TESTN.$ERfiPC.LKS 



.•"RESET DID NOT CLEAR RTC INTERRUPT' 
;"TEST# ERR PC LKS" 
;$TESTN,$ERRPC,LKS 



;"RTC INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS' 

;"TEST# ERR PC LKS" 

;$TESTN.$ERRPC,LKS 



;"SLU1 RECEIVER STATUS ERROR" 
;"TEST# ERR PC CRCSR GOOD BAD" 
;$TESTN,$ERRPC, CRCSR, $GDDTA,$BODAT 



;SLU2 RECEIVER STATUS ERROR 
;"TESTN ERR PC RCSR GOOD BAD" 
;STESTN,$ERRPC,RCSR,$GDDAT,$8DDAT 



"SLU1 DATA COMPARE ERROR IN EXERCISER' 
•7EST* ERR PC CRCSR GOOD BAD" 
STESTN ,SERRPC , CRCSR ,6D ,BD 



"INCORRECT RECEIVE COUNT SLU2 
•7EST# ERR PC RCSR TRANS RCV 
$TESTN.$ERRPC.RCSR.XMTCT2.RCVCT2 



;"SLU2 DATA COMPARE ERROR IN EXERCISER' 
;"TEST# ERR PC RCSR GOOD BAD" 
;$TESTN,$ERRPC,RCSR.GD.BD 



;"TRAP CATCHER" 

;"TEST# ERR PC OLDPC TRAP ADR* 
;$TESTN.$ERRPC.OLDPC.BDVECT 



INTERNAL ON BOARD OPTIONS 



SLU2 COMMAND/ STATUS REGISTER 
SLU2 RECEIVER BUFFER 

SLU2 TRANSMITTER COMMAND/STATUS REGISTER 
SLU2 TRANSMITTER BUFFER 
SLUl RECEIVER COMMAND/STATUS REGISTER 
SLU1 RECEIVER BUFFER 



CJKDIAO 11/238 SLU LTC REPR D1A6 
CJHD1A.P11 20-0CT-81 16:08 



' CO J 




1 / f DO** 




1 COO 


uvc ' DO 


1 77^f\f, 
1 » ' 300 




1 ?A7 


nn?77n 


1 77^Lf\ 




1 coo 
















1 ?7n 








1 ?71 








1 ?7P 

1 C 1 c 


nn?77? 






1?7^ 

\ C 1 J 








1 c > *♦ 


VVC ' ' O 






1 ?7S 




vvv JvD 




1 ?7/^ 

1 C ' D 




Uvl/vDv 




1 ?77 
It'' 




vvvUOC 




1 ?7R 




000064 




1 C ' T 




vvvvoo 




' COv 




000100 

vvv 1 vv 




1281 


003014 


000102 




1 ?R? 








1283 


003016 


005037 


001102 


1284 


003022 


005037 
005037 


001100 


1285 


003026 


001104 


1286 


003032 


005037 


001156 


1287 


003036 







003036 
003042 
003044 
003050 
003052 

003056 
003064 
003072 
003100 
003106 
003114 
003122 
003130 
003136 
003144 
003150 
003156 
003164 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
112737 
012737 
012737 



001000 

001040 

001000 

013114 
000340 
012420 
00034 D 
015326 
000340 
012736 
000340 
012270 
001072 
000001 
003156 
003164 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
012262 

001015 
001006 
001010 
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SEO 0032 



CTCSR: 


177564 




SLU1 TRANSMITTER COWAND/STATUS REGISTER 


C TRliF • 


177566 




SLUl TRANSMITTER BUFFER 


1 K^- 

C^w ■ 


.WORD 


177546 ! 


LTC COmAND/STATUS REGISTER 




ADDRESSES FOR ON BOARD OPTIONS 




.WORD 


300 




RPSU: 


.WORD 


302 




TVEcf • 


.WORD 


304 




TPSU: 


.WORD 


306 




CRVECT: 


60 


.•RECEIVER INTERRUPT VECTOR 


CRPSW: 


62 








64 




•TRANSMITTER INTERRUPT VECTOR 


CTPSW: 


66 






RTCVT: 


.WORD 


100 




RTCPSW: 


.WORD 


102 




START: 


CLR 


SFATAL 


; CLEAR ERROR NO. 




CLR 


WSGTYP 


; CLEAR MESSAGE TYPE 




CLR 


STESTN 


r CLEAR TEST NO. 




CLR 


SDEVM 


;CLEAR FLAGS INDICATING DEVICES UNDER TEST 



1$: 

.S8TTL 
;; CLEAR 

MOV 
CLR 
CMP 
BNE 
MOV 
;;INITIALIZE 
MOV 



LOCATION TO BE CLEARED 
MEMORY LOCATION 



INITIALIZE THE COMMON TAGS 
THE COMMON TAGS ($CMTAG) AREA 

*$CMTA6,R6 ; .-FIRST 

(R6)+ ;; CLEAR 

#SWR.R6 ;;DONE? 
.-6 

#1000.SP 
FEW VECTORS 

#$SCOPE,a#IOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
#340,a#IOTVEC+2 ; .-LEVEL 7 

mRROR,a#EHTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340,a#EHTVEC*2 ; .-LEVEL 7 

nTRAP.a#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340.a#TRAPVEC+2;LEVEL 7 



.-.-LOOP BACK IF NO 

.-.-SETUP THE 



STACK POINTER 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
M0V8 
MOV 
MOV 



[2) 










.-.-SIZE FOR A 


'2) 










;; EQUAL TO A 


(2) 


003172 


013746 


000004 




MOV 


[2) 


003176 


012737 


003232 


000004 


MOV 


12) 


003204 


012737 


177570 


001040 


MOV 


(2) 


003212 


012737 


177570 


001042 


MOV 


[2) 


003220 


022777 


M7117 


175612 


CMP 


(2) 


003226 


001012 






BNE 


12) 
[2) 


003230 


000403 






BR 


[2) 


003232 


012716 


003240 




64S: MOV 


t2) 


003236 


000002 






RTI 



#$PURDN,a#PURVEC 
*340.a#PURVEC+2 
$ENDCT.$EOPCT 
SESCAPE 
*1,$ERMAX 
#.,$LPADR 
#.,$LPERR 



.-POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-OF -PROGRAM COUNTER 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 



HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



•-1". SETUP FOR A 
a*ERRVEC,-(SP) 
*64$,a*ERR"EC 
#DSWR,SWR 
miSP. DISPLAY 

#-i.aswR 

66$ 
65$ 

#65$. (SP) 



SOFTWARE SWITCH REGISTER. 
;SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWICH REGISTER 
;AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
;8RANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT = -1 
;8RANCH IF NO TIMEOUT 
SET UP FOR TRAP RETURN 



H 
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SEQ 0033 



(2) 
(2 
(2 
(1 
f2 
(2 
(2 
(2 
(2 
1?88 
( 
( 



( 
( 
( 
( 

1?89 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 



003240 
003246 
003254 

003260 
003264 
003272 
003274 
0C3302 

003302 
003306 
003310 
0C3316 
003320 
003326 
003330 
003332 
003334 
003342 
003342 
003350 
003352 
003360 
003366 
003370 
003376 
003404 
003406 
003414 
003422 
003424 



012737 
012737 
012637 

005037 
132737 
001403 
012737 



005737 
001012 
12372;^ 
001406 
023727 
001005 
104406 
000403 
112737 

032777 
001003 
052737 
032777 
001003 
052737 
032777 
001003 
052737 
032737 
001002 
000137 



000176 
000174 
000004 

001106 



000042 



000001 

000060 

000001 
000050 

000002 
000100 

000004 
000001 

003660 









if SURF G SUR 


001042 




NOV 


fDISPREG DISPLAl 




MOV 


(SPH.ifERRVEC 






CLR 


SPASS 


001 1?1 




BITB 


#APTS12E.$ENVM 




BEO 


67$ 


001040 




nov 


#$SUREG.SUR 


67S: 








SBTTL 


GET VALUE FOR SOFTWARE 




TST 


a^42 








68$ 


000001 




cMpb 


$ENV,#1 






8EQ 


68$ 


0001 76 




CMP 


SUR,#SWREG 






SNE 


69$ 






GTSWR 








BR 


69$ 


001034 


68S: 


MOVB 


#1.$AUT0B 




69$: 






175470 




BIT 


#BIT4!BIT5,aSUR 






BNE 


2$ 


001156 




BIS 


#8IT0,$DEVH 


175452 


2$: 


BIT 


#BIT3.'BIT5,aSUR 






BNE 


3$ 


001156 




BIS 


#8IT1,$DEVM 


175434 


3S: 


BIT 


#BIT6,aSUR 






BNE 


4$ 


001156 




BIS 


#BIT2.$DEVM 


001156 


4$: 


BIT 


«BITO,$DEVn 






BNE 


TST1 






JMP 


ID 



: .-POINT TO SOFTWARE SWR 

f 

: .-RESTORE ERROR VECTOR 

.-.-CLEAR PASS COUNT 
.-.TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITCH 
.-.-NO.USE APT SWITCH REGISTER 

SWITCH REGISTER 

;AfiE WE RUNNING UNDER XXDP/ACT? 
.-BRANCH IF YES 
;ARE WE RUNNING UNDER APT? 
.•BRANCH IF YES 

.•SOFTWARE SWITCH REG SELECTED? 
.•BRANCH IF NO 
.-GET SOFT-SWR SETTINGS 

;SET AUTO-MODE INi)ICATOR 

IS SLU1 TO BE TESTED 

IF EITHER BIT IS SET THEN DON'T TEST IT 
SET DEVICE FLAG TO TEST SLUl 
IS SLU2 TO BE TESTED 

IF EITHER BIT IS SET THEN DON'T TEST IT 
SET DEVICE FLAG TO TEST SLU2 
IS LTC TO BE TESTED 
IF BIT IS SET THEN DON'T TEST IT. 
SET DEVICE FLAG TO TEST LTC 
IS SLUl UNDER TEST 

IF YES TEST XMIT REG. BEFORE TYPING TITLE 
IF NO SKIP TESTS AND TYPE IT NOW 
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1 xno 








1 'in'? 








1 Xf\L 








\jf 








\jl 








t J 1 


UU j*» JU 


nnnon^ 

UwUUU*« 




t 3 ^ 


Uv J*« JC 


W 1 C f J' 


000001 
wuwww 1 


I jU J 




U 1 J ' WJ 


000004 
wuwww*« 


1 iriA 

' jUO 


j*f •#•♦ 


ni ?7'^7 

W 1 C ' J' 


0034AO 


1 TO 7 


UU JH JC 


005777 
Ww J t f f 


1 7730A 

1 1 1 jWO 


1 JvO 


WW J*« JO 


000^05 

WWW*<W J 




1 ^no 


UU J** ou 


UccOcO 




1 I 1 v 


WW JHUC 


00^7^7 

WWH ' J ' 


01 3304 

W 1 J JW*» 


r 1 1 


WU J**00 


000001 

WWWWv 1 




1 


WW JM ' W 


000000 

vWWWWW 






wW JH ' C 


010^^7 

W 1 WJ Jf 


000004 

WWWWWH 










1 J 1 H 
















1 '^1 A 








\ jf 








(^) 










WW JH ' o 


000004 
wwwww^ 




(?) 


003500 

WW J JWW 


012737 


000002 

wwwwwc 


1 ^1 7 


WW J JWO 


01 '?703 


000004 

w wwww** 


1 

I ^ 1 o 


WW J J 1 c 




00^526 

WV J-'C w 


1 ^19 

1 J 1 T 


WW J Jew 


005777 

Iff 


1 772it2 

III 




003524 


000405 




1 


003526 


022626 






003530 

WW J J JW 


004737 


013304 


V 1 / 


00^534 

WW J J J*f 


000002 




1 JCJ 


00^5% 

WW J J JU 


000000 

wvwvvv 






00T5A0 

WW J JHW 


010^^7 


000004 

WWW"* 


1 JC J 








I jCv 








1 


























WWJ JHH 


oonooA 




v c / 


0035^6 

WW J J^'O 


012737 


000003 

W V WWW-/ 




00^554 


032737 

\JjC I ji 


000001 

WWWWW 1 




00^562 


001405 






00'?564 

WW J JWH 


005737 


001 106 

WW 1 1 WW 




00^570 

WW J J ' w 


00140? 

WW 1 ••wc 






00^572 


000137 

Ww 1 J f 


004402 

WW"" Wt 




00'?576 

WW J J ' w 


005077 


177164 

1 r f 1 w** 




00%02 


105777 


177156 


1 .J J J 




100011 

t WV V 1 1 












1337 








1338 


003610 


005077 


177152 


1339 


003614 


105777 


177144 


1340 


003620 


100004 




13A1 


003622 


004737 


013304 


(1) 


003626 


000003 




13A2 


003630 


000000 





0C1104 
000004 



001104 
000004 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



}iTEST*r*******TEST ABILITY*?? ACCESS SLUl TCSR 



SCO 0034 



TST1; 



IS: 



2$: 



SCOPE 
MOV 
MOV 
MOV 

Tsr 

BR 
CMP 

JSR 
1 

HALT 
MOV 



*1.$TESTN 

S>V4,R3 

«1$.3#4 

aCTCSR 
2$ 

(SP)+.{SP)+ 
PC,$ATY4 



R3,a#4 



;;SET TEST NUMBER IN APT MAR BOX 

;SAVE TIMEOUT VECTOR 

;SET UP TIMEOUT VECTOR 

.•REFERENCE THE XMJT COMMAND/STATUS REG. 

; 60 TO END OF TEST 

.•RESTORE SP AFTER TIMEOUT 

;;ONLY REPORT A FATAL ERROR 

;;THE ERROR NUMBER (FROM APT LIST) 

.•RESTORE TIMEOUT VECTOR 



•West 2 test ability to access slui tbuf 

tST2: scope 

#2.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

3/^4. R3 .-SAVE TIMEOUT VECTOR 

*1$,a#4 ;SET UP TIMEOUT VECTOR 

aCTBUF .-REFERENCE THE XMIT BUFFER 

2$ ;60 TO END OF TtST 

(SP)+.(SP)+ ;RESTORE SP AFTER TIMEOUT 
PC.$ATY4 j.-ONLY REPORT A FATAL ERROR 

::THE ERROR NUMBER (FROM APT LIST) 



1$ 



2$: 



MOV 
MOV 
MOV 
TST 
BR 
CMP 
JSR 
2 

HALT 
MOV 



R3.»ir4 



.•RESTORE TIMEOUT VECTOR 



001104 
001120 



• ************ 

'*TEST 3 

• ************ 

TST3: SCOPE 
MOV 
BIT 
BEQ 
TST 
BEQ 
JMP 

70$: CLR 
TSTB 
BPL 



CLR 

TSTB 

BPL 

JSR 

3 

HALT 



*************************************************** 

TEST SLUI TCSR BIT7(D0NE) CLEARS WHEN XBUF IS LOADED 
*************************************************** 



#3.$TESTN 
#1,a#SENV 
70$ 

a#$PASS 
70$ 

SLU2RT 
aCTBUF 
aCTCSR 
1$ 



aCTBUF 
aCTCSR 

1$ 

PC.$ATy4 



;;SET TEST NUMBER IN APT HAIL BOX 
;ARE UE RUNNING UNDER APT 
;IF NO THEN DO TEST 
;IS THIS FIRST PASS 
.-IF YES THEN DO THIS SERIES OF TESTS 
;IF NO THEN SKIP THIS SERIES OF TESTS 
LOAD XBUF 
.CHECK DONE 
;BR IF CLEAR 

.-FILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE 

; FIRST TEST TO FAIL 

.•FILL DOUBLE BUFFER 

.-CHECK DONE 

;BR IF CLEAR 

.-.-ONLY REPORT A FATAL ERROR 

;.-THE ERROR NUMBER (FROM APT LIST) 

;TC!>R "DONE" NOT CLEARED WITH TBUF FULL 
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T3 TEST SLU1 TCSR BIT7(D0NE) CLEARS WHEN XBUF IS LOADED 



SEO 0035 



1 %3 


00363? 


005000 

\J\t J W V 






1 ?<i<i 


003634 

wv JW J" 


105777 


177124 






003640 


100407 








003642 


005200 






1347 


003644 


001373 

\J\J \ J ' -J 






1348 


003646 


004737 


013304 




(1 ) 


00365? 

V/w J\J -^Q 


000004 






1 349 


003654 


000000 

www 






1 350 


003656 


000416 






1351 










1 352 










1 353 


003660 


023737 


000042 


000046 


1 354 


003666 


001412 






1355 


003670 


005737 


001106 




1356 


003674 


001007 






1357 


003676 


005737 


001110 




1358 


003702 


001004 






1359 


003704 


104401 






1360 


003706 


025476 






1361 


003710 


104401 






1362 


003712 


025510 






1363 


003714 








1364 










1565 










(3) 










(3) 










(2) 


0037U 


000004 






(2) 


003716 


012737 


000004 


001104 


1366 


003724 


032737 


000001 


001156 


(1 ) 


003732 


001002 






(1 > 


003734 


0001 37 


004402 




(1 ) 


003740 








1367 


003740 


005077 


177022 




1368 


003744 


105777 


177014 




1369 


003750 


100375 






1370 


003752 


005077 


177010 




1371 


003756 


000240 






1372 


003760 


000005 






1373 


003762 


105777 


176776 




1374 


003766 


100401 






1375 










1376 


003770 


104005 






1377 










1378 










1379 










1380 










(3) 










(3) 










(2) 


003772 


000004 






(2) 


003774 


012737 


000005 


001104 


1381 


004002 


013703 


000004 




1382 


004006 


012737 


004022 


000004 


1383 


004014 


005777 


176740 




1384 


004020 


000402 






1385 










1386 


004022 


022626 







1$: 
2$: 



ID: 



6$: 



CLR 

TST8 

BM] 

INC 

BNE 

JSR 

4 

HALT 
BR 



CMP 

BEQ 

TST 

BNE 

TST 

BNE 

TYPE 

Ml 

TVPE 

n2 



RO 

aCTCSR 
ID 
RO 
2$ 

PC.$ATY4 



TST4 



a>v42,a#46 

6S 

SPASS 
6$ 

$DEVCT 
6S 



.CLEAR TIMER 

.•CHECK FOR XMIT DONE 

;IF DONE SETS, BR TO END OF TEST 

.-INCREMENT TIMER 

;6R IF TIMER NOT DONE 

;;ONLY REPORT A FATAL ERROR 

;;THE ERROR NUMBER (FROM APT LIST) 

;BR TO NEXT TEST, AND SKIP THE TYPEOUT THAT FOLLOWS 
: BECAUSE OF THIS FAILURE 

.•UNDER ACT11? 

;IF YES, SKIP IDENT. TYPEOUT 
•IS THIS THE FIRST PASS'' 

•IF NOT BR TO NEXT TESTi SKIP THE IDENTIFICATION TYPEOU 
;IS THIS THE FIRST SU8PASS? 
;IF NOT, BRTO NEXT TEST 
.'TYPE PROGRAM INDENT I FJCATION 

.•TYPE NUMBER OF DEVICES UNDER TEST 



***************************************************************** 

}iTEST 4 TEST THAT SLUI TCSR 'DONE" SETS WITH RESET 

***************************************************************** 



TST4: 

99$: 
1$: 



SCOPE 




MOV 


#4.$TESTN 


BIT 


JTBITO.a^SDEVM 


BNE 


99$ 


JMP 


SLU2RT 


CLR 


aCTBUF 


TSTB 


aCTCSR 


BPL 


1$ 


CLR 


aCTBUF 


NOP 




RESET 




TSTB 


aCTCSR 


BMI 


TST5 


ERROR 


5 



;;SET TEST NUMBER IN APT MAIL BOX 

;D0 THESE TESTS FOR THIS DEVICE? 

;F YES CONTINUE WITH TESTS 

;IF NO GO TO START Of NEXT SET OF TESTS. 

.•LOAD TRANSMIT BUFFER 
;WAIT FOR DONE 

.-LOAD SECOND BUFFER 

.•CLEAR DONE WITH RESET 

.•CHECK FOR DONE SET 

:8R TO NEXT TEST IF DONE SET 

;TCSR 'DONE" DOES NOT SEl WITH RESET 



***************************************************************** 

}iTEST 5 TEST ABILITY TO ACCESS SLUI RCSR 

• • t *************** *********************************************** 



TST5: 



SCOPE 

MOV #5.$TESTN 

MOV a#4 ,R3 

MOV #1$,a*4 

TST aCRCSR 

BR 2$ 



1$: 



CMP 



(SP). + ,(SP)* 



;;SET TEST NUMBER IN APT MAIL BOX 

.-SAVE TIMEOUT VECTOR 

.-SET UP TIMEOUT VECTOR 

.•ACCESS RCSR 

;BR TO END OF TEST 

;REJ>TORE SP AFTER TIMEOUT 
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1XM7 


UVHUt"* 


1040nA 






■ JQO 




010557 


000004 

vvvvVH 




1 joy 










1 ^Qf) 

1 Jr\J 










1 ^01 

1 J T 1 










« J' 










\ J ' 












00405? 


000004 








004054 


012737 


000006 


001 104 




OC\LC)L? 

vvHvHC 




000004 








01?757 


00406? 


000004 

W V w~» 




004054 


005777 


176702 




1595 


004060 


00040? 






1 596 










1597 


00406? 


0??6?6 






1398 


004064 


104007 






1 599 


004066 


010537 


000004 














KOI 










140? 










K05 




















1405 










(3) 










(3J 










(?) 


00407? 


000004 






(2) 


004074 


012737 


000007 


001104 


1406 


004102 


042777 


000100 

WW 1 w 


176654 


1407 


0041 10 


017703 


176672 




1408 


004 1 1 4 


0^2777 


004144 


1 76664 


1409 


004122 


004737 


012356 




1410 


004 1 26 


000340 






141 1 


004130 


052777 


000100 


1 76626 


1412 


004136 


001404 






1413 


004140 


104014 






1414 










1415 


004142 


000402 






1416 










1417 


004K4 


022626 






1418 


004146 


104015 






1419 










1420 










1421 


0041 50 


052777 


000100 

V W 1 w 


1 76606 


1422 


004156 


012777 


000100 


1 76600 


1423 


004164 


001001 






1424 










1425 


004166 


104016 






1426 




















1428 


004170 


^k2777 


000100 


176566 


1429 


004176 


012777 


000100 


176560 


1430 


004204 


001401 






1431 


004206 


104017 






1432 










1433 










1434 


004210 
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T5 TEST A8ILJTY TO ACCESS SLUI RCSR 



SEQ 0036 



2S: 



ERROR 

nov 



6 

R3,aXH 



:CAN NOT ACCESS RCSR 
.•RESTORE TIMEOUT VECTOR 



.••TEST 6 TEST ABILITY TO ACCESS SLUl R8UF 

••*************************************************************** 

tST6: 



IS: 
2$: 



SCOPE 






MOV 


*6,$TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 


MOV 


a«4.R3 


;SAVE TIMEOUT VECTOR 


MOV 


#i$,a#4 


.-SET UP TIMEOUT VECTOR 


TST 


aCRBUF 


.•ACCESS RBUF 


BR 


2$ 


;BR TO END OF TEST 


CMP 


(SP)+,(SP)+ 


.•RESTORE SP AFTER TIMEOUT 


ERROR 


7 


.■CAN NOT ACCESS RBUF 


MOV 


R3.a/ir4 


.•RESTORE TIMEOUT VECTOR 



iTEST 7 TEST THAT SLUI BIT6(XMIT INT EN) CAN BE SET S RESET 

**************************************************************** 

TST7: SCOPE 

;SET TEST NUMBER IN APT MAIL BOX 
MAKE SURE BIT UNDER TEST IS INITIALIZED 
SAVE XMI T VECTOR 

SET UP INTERRUPT VECTOR FOR ERROR REPORT 
;SET PSU TO PRIORI TY=7 

.•TEST BIT6 OF TCSR 
;flR IF ZERO 



1$: 



2S: 



3$: 



MOV 


*7,$TESTN 


BIC 


#81 T6.aCTCSR 


MOV 


aCTVECT.R3 


MOV 


#1$.aCTVECT 


JSR 


PC.WRPSW 




.WORD 540 


BIT 


#8IT6.aCTCSR 


BEQ 


2$ 


ERROR 


14 


BR 


2$ 


CMP 


(SP)+.(SP)+ 


ERROR 


15 


BIS 


#8IT6.aCTCSR 


BIT 


#8IT6,aCTCSR 


BNE 


3f 


ERROR 


16 


BIC 


#6iT6.aCTCSR 


BIT 


#BIT6,aCTCSR 


BEQ 


4$ 


ERROR 


17 



;BIT6 IN TCSR NOT CLEAR AFTER RESET 

.•RESTORE SP AFTER INTERRUPT 

;XMIT INTERRUPT OCCURRED PRI0=7 

.•SET BIT6 OF TCSR 
;TEST BIT6 OF TCSR 
.•BR. IF SET 



.•CANNOT SET BIT6 OF TCSR 

.•CLEAR BJT6 OF TCSR 
.•TEST 81 T6 OF TCSR 
;BR IF CLEAR 

.CANNOT CLEAR BIT6 OF TCSR 



4$: 



L 
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T7 TEST THAT SLUl BIT6(XNIT INT EN) CAN BE SET t RESET 



SEQ 0037 







ns; 777 


000100 


176546 


• H JO 


WH C 1 U 


000005 




1 76536 




004,550 

VvHCC V 


032777 


000100 

WV 1 WW 


1 H JO 


vVHCCO 


001401 






T H J 7 










I •••• V 


vvHC JV 


104070 

1 VH VC V 
















1 HHC 


UvH CJC 


010377 


176550 




1 HH J 










1 HHH 










1 HH J 










V J ' 










V J / 










IP) 


VWHC JU 


000004 

W W V~ 






(p) 


004740 


012737 


000010 


001 104 




004546 


\/**b * » ' 


000100 


176504 


1447 


004254 


01 7703 


176522 


176514 


1448 


004260 


012777 


004310 


1449 


004266 


004737 


012356 




1450 


004272 


000340 






1451 


004274 


012777 

V^b III 


000100 


176456 


1452 


004302 


001404 






1453 


004304 


104021 






1454 










1455 


004306 


000402 

VW~ Wb 






1456 










1457 


004310 


022626 






1458 


004312 


104022 






1459 










1460 










1461 


004314 


0S2777 

V ^ b * ' • 


000100 


176436 


146? 


004322 


032777 

W«/b III 


000 loO 

WW 1 WW 


176430 


1463 


004330 


001001 






1464 










1465 


004332 


104023 






1466 










1467 










1468 


004334 


042777 


000100 


176416 


1469 


004 34 


032777 

V^b III 


000100 

www 1 WW 


176410 


1470 


004350 


001401 






1471 












004352 

V^b 


104024 






1473 










1474 










1475 


004354 








1476 


004354 


052777 


000100 

www ■ WW 


176376 


1477 


004362 


000005 




1 76366 


1478 


004364 


012777 


000100 


1479 


004372 


001401 






1480 










1481 


004374 


104025 






1482 










1483 


004376 


010377 


176400 




1484 










1485 











5S: 



BIS 
RESET 
BIT 
BEQ 

ERROR 

nov 



«8IT6,aCTCSR 

#BIT6,aCTCSR 
5$ 

20 

R3.aCTVECT 



SET BIT6 OF TCSR 
CLEAR BIT6 WITH RESET 
TEST BIT6 OF TCSR 
BR IF CLEAR 



.CANNOT CLEAT, BI)6 OF TCSR WITH RESET 
.•RESTORE X«IT VECTOR 



•-*************************************************************** 

}iTEST 10 TEST THAT SLUl 8IT6 OF RCSR CAN BE SET I RESET 



TST10: 



1$: 



2$: 



3$: 



4S: 



5$: 



SCOPF 




MOV 


*10.$TESTN 


9IC 


*8IT6.aCRCSR 


MOV 


aCRVECT.R3 


MOV 


*1$.aCRVECT 


JSR 


PC.WRPSU 




.WORD 340 


BIT 


#8IT6.aCRCSR 


BEQ 


2$ 


ERROR 


21 


BR 


2$ 


CMP 


(SP)+,(SP)+ 


ERROR 


22 



BIS #8IT6.aCRCSR 

BIT «8IT6.aCRCSR 

BNE 3S 

ERROR 23 



BIC #8IT6.aCRCSR 

BIT #6IT6.aCRCSR 

BEQ 4S 

ERROR 24 



BIS 
RESET 
BIT 
BEQ 

ERROR 

NOV 



raiT6.aCRCSR 

#8IT6,aCRCSR 
5$ 

25 

R3.aCRVECT 



;;SET TEST NUMBER IN APT MAIL BOX 

.-MAKE SURE BIT UNDER TEST IS INITIALIZED 

.•SAVE RECEIVE VECTOR 

.SET UP INTERRUPT VECTOR FOR ERROR REPORT 
.-SET PSU TO PRI0RITy=7 

.•TEST 81 T6 OF RCSR 

;BIT6 OF RCSR NOT CLEAR AFTER RESET 

.•RESTORE SP AFTER INTERRUPT 

;RCVR INTERRUPT WITH PRIORI TY=7 

;SET 8JT6 OF RCSR 
;TEST BIT6 OF RCSR 
;8R. IF SET 



; CANNOT SET BIT6 OF RCSR 

.•CLEAR BIT6 OF RCSR 
.-TEST BIT6 OF RCSR 
;8R, IF CLEAR 



.•CANNOT CLEAR BIT6 OF RCSR 



.-SET 81 T6 OF RCSR 

.•CLEAR 8IT60F RCSR WITH RESET 

.•TEST 81 T6 OF RCSR 

;BR, IF CLEAR 



.-CANNOT CLEAR BIT6 OF RCSR WITH RESET 
.•RESTORE RECEIVE VECTOR 



f JltD I AO 


1 W25B 


SLU Lie 


REPR Dl^ 




P11 20-0CT-81 


16:08 




004402 








































004402 


000004 






004404 


012737 


000011 


1490 


004412 


032737 


000002 

W W Vfc 


( 1 ) 


004420 


001002 




(1 ) 


004422 


000137 


005626 


(1 ) 


004426 






1491 


004426 


013703 


000004 


K92 


004432 


012737 


004446 


1495 


004440 


005777 


176310 


1494 


004444 


000402 




1495 


004446 


022626 




1496 


004450 


104031 




1497 


004452 


010337 


000004 


1498 








1499 








1500 








1501 








(3) 








(5) 








(2) 


004456 


000004 




(2) 


004460 


012737 


000012 


1502 


004466 


013703 


000004 


1503 


004472 


012737 


004506 


1 504 


004500 


005777 


176252 


1505 


004504 


000402 




1506 


004506 


022626 




1507 


004510 


104032 




1508 


004512 


010337 


000004 


1509 








1510 








151 1 








C3) 








(3) 








(2) 


004516 


000004 




(2) 


004520 


012737 


000013 


1512 


004526 


032737 


000001 


(1 ) 


004534 


001403 




(1 ) 


004536 


005737 


001106 


(?) 


004542 


001022 




(1 ) 


004544 






1513 


004544 


005077 


1 76206 


1514 


004550 


105777 


1 76200 


1515 


004554 


100006 




1516 








1517 








1518 


004556 




176174 


1519 


004562 


105777 


176166 


1520 


004566 


100001 




1521 


004570 


104033 




1522 


004572 


005000 




1523 


004574 


105777 


176154 



001104 
001156 



000004 



001120 
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no TEST THAT SLUI BIT6 OF RCSR CAN BE SET t RESET 

SLU2RT: 

■iTEST 11 TEST ABILITV TO ACCESS SLU2 TCSR 



SEQ 0038 



TST11 



99$: 



1$: 
2$ 



SCOPE 

HOV *11,$TESTN 

BIT #BIT1,a#SDEVn 

BNE 99S 

J«P LTCRT 

MOV W4.R3 

nov jri$,a#4 

TST aTCSR 

BR 2t 

CMP (SP)+.<SP)+ 

ERROR 31 

nov R3,a#4 



;;SET TEST NUMBER IN APT MAIL BOX 

;D0 THESE TESTS FOR THIS DEVICE? 

;F YES CONTINUE WITH TESTS 

;IF NO 60 TO START OF NEXT SET OF TESTS. 

;SAVE TIMEOUT VECTOR 

;SET UP TIMEOUT VECTOR 

.•REFERENCE THE XMIT COMMAND/STATUS REG. 

; GO TO END OF TEST 

.•RESTORE SP AFTER TIMEOU^ 

;XMIT CSR ADDRESS DOES NOT RETURN SSYNC 

.•RESTORE TIMEOUT VECTOR 



[•'•TEST 12 TEST ABILITY TO ACCESS SLU2 TBUF 

• • •***•»»*•********»»*•*********»**»******* ************* 

tSTI?: SCOPE 

MOV *12.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

MOV aA4.R3 .'SAVE TIMEOUT VECTOR 

MOV *1$,a*4 ;SET UP TIMEOUT VECTOR 

TST aTBUF ; REFERENCE THE XMIT BUFFER 

BR 2$ ;G0 TO END OF TEST 

1$: CMP (SP)+.(SP)+ ;RESTORE SP AFTER TIMEOUT 

ERROR 32 ;XMIT BUFFER ADDRESS DOES NOT REUTRN SSYNC 

2$: MOV R3.a#4 .-RESTORE TIMEOUT VECTOR 



; ♦»*» 

• TEST 

• *»** 

tST13 



70$: 



13 TEST SLU2 TCSR BIT7(D0NE) CLEARS WHEN X8UF IS LOADED 

t ******»»»»»»•*»«********♦**•••••*****• ********** 

SCOPE 

#13,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

0^ . amNv .-are ue running under apt 

70$ ;IF NO THEN DO TEST 

a*$PASS ;IS THIS FIRST PASS 

TST14 ;IF NO THEN SKIP TO NEXT TEST 



MOV 

r3IT 
3EQ 
TST 
BNE 



1$: 
2$: 



CLR 

TST8 

B?L 



CLR 

TST8 

BPL 

ERROR 

CLR 

TST8 



aTBUF 
aTCSR 

1$ 



aTBUF 
aTCSR 
1S 

33 
RO 

aTCSR 



.-LOAD X8UF 
.-CHECK DONE 
'BR IF CLEAR 

•FILL SELOND BUFFER, BECAUSE REFRESH COULD CAUSE 

FIRST TEST TO FAIL 
.'FILL DOUBLE BUFFER 
.-CHECK DONE 
-BR IF CLEAR 

•TCSR 'tONE" NOT CLEARED WITH TBUF FULL 

.'CLEAR TIMER 

.'CHECK FOR XMIT DONE 



CJKOIAO 


11/238 


SLU LTC 


REPR DIA 


CJKDIA.PII 20-OCT-81 


16:08 


1524 


004600 


100473 




1525 


004602 


005200 




1526 


004604 


001373 




1527 


004606 


104034 




1528 








1529 








1530 








(3) 








(3) 








(2) 


004610 


000004 






00461 2 


012737 


000014 


1531 


004620 


032737 


000001 


(1) 


004626 


001403 




(1) 


004630 


005737 


001106 


(2) 


004634 


001015 




(1 ) 


004636 






1532 


004636 


005077 


176114 


1533 


0O4642 


105777 


176106 


153A 


004646 


100375 


176102 


1535 


004650 


005077 


1536 


004654 


000240 




1537 


004656 


A A AAA C 

000005 




1538 


004660 


4 AC ^'^'^ 

105777 


176070 


1539 


004664 


4 A A r OA 

100520 




1540 








1541 


004666 


104035 




1542 








1543 








1544 








1545 








(3) 








(3) 








(2) 


004670 


AAAAA/ 

000004 




(2) 


004672 


012737 


000015 


1546 


004700 


A 4 ^^f\'9 

013703 


000004 


1547 


004704 


012737 


004720 


1548 


004712 


005777 


176032 


1549 


004716 


AAA/ AO 

000402 




1550 








1551 


004720 


A O O^ O ^ 

022626 




1552 


004722 


i Ay ATZ 

104036 




1553 


004724 


A1 ATT"? 


000004 


1554 








1555 








1556 








1557 








(3) 








(3) 








(2) 


004730 


000004 




(2) 


004 732 


0\275f 


000016 


i c c o 




U 1 if Uj 


000004 


1559 


004744 


012737 


004760 


1560 


004752 


005777 


175774 


1561 


004756 


000402 




1562 








1563 


004760 


022626 





001104 

oon20 



001104 
000004 
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T13 TEST SLU2 TCSR BIT7(D0NE) CLEARS WHEN X8UF IS LOADED 



SEQ 0039 



INC 
BNE 
ERROR 



TST17 
RO 
2$ 
34 



;IF DONE SETS, BR TO NEXT TEST 

.•INCREMENT TIMER 

;BR If TIMER NOT DONE 

;XM1T DONE BIT DOES NOT RESET AFTER TRANSMIT 



***************************************************************** 

';iTEST 14 TEST THAT SLU2 TCSR "DONE" SETS WITH RESET 

• •tt^tHHIil, ******************************************************* 

tST14: SCOPE 

MOV #14.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

BIT M^. :ARE UE RUNNING UNDER APT 

BEQ 70$ ;IF NO THEN DO TEST 

TST a#$PASS ;IS THIS FIRST PASS 

BNE TST15 ;IF NO THEN SKIP TO NEXT TEST 



70$: 
1$: 



CLR 

TSTB 

BPL 

CLR 

NOP 

RESET 

TST8 

6MI 



aT8UF 
aTCSR 
1$ 

aTBUF 



aTCSR 
TST20 



ERROR 35 



.-LOAD TRANSMIT BUFFER 
:UAIT FOR DONE 

.-LOAD SECOND BUFFER 

.■CLEAR DONE WITH RESET 

; CHECK FOR DONE SET 

;8R rO NEXT TEST IF DONE SET 

;TCSP "DONE" DOES NOT SET WITH RESET 



001104 
000004 



••»*****»*****•*•"**********•*****•••********•*******•********•* 

'•TEST 15 TEST ABILITY TO ACCESS SLU2 RCSR 

•••***»*t *************** ********•***•**•*******•**•**•*•**•**•** 

tSTl5: SCOPE 

MOV #15,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

MOV a#4.R3 .-SAVE TIMEOUT VECTOR 

MOV #1$,a#4 .-SET UP TIMEOUT VECTOR 

TST aRCSR .'ACCESS RCSR 

BR 2$ .-BR TO END OF TEST 

1$: CMP (SP) + ,(SP)+ .-RESTORE SP AFTER TIMEOUT 

ERROR 36 ;CAN NOT ACCESS RCSR 

2$: MOV R3.a*4 .-RESTORE TIMEOUT VECTOR 



• . **********««*******************************************»******* 

;iTEST 16 TEST ABILITY TO ACCESS SLU2 R8UF 

• .***••* ********************************** «**••••**•**• ********** 

tsT16: SCOPE 

MOV #16.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

MOV a#4.R3 .-SAVE TIMEOUT VECTOR 

MOV #l$,a#4 ;SET UP TIMEOUT VECTOR 

TST aRBUF .-ACCESS RBUF 

BR 2$ ;BR TO END OF TEST 



1$: 



CMP 



(SP)+.(SP)+ 



.•RESTORE SP AFTER TIMEOUT 
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T16 TEST ABILJTY TO ACCESS SLU2 R8UF 



SEO 0040 



1564 
1565 
1566 
1567 
1568 
1569 
(3) 
(3) 
(2) 
(2) 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
(1) 
(1) 
(1) 
(2) 
(1) 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
(5) 
(3) 
(2) 
(2) 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 



004762 104037 

004764 010337 000004 



2$: 



ERROR 

nov 



37 

R3,i4r4 



;CAN NOT ACCESS RBUF 
.•RESTORE TIMEOUT VECTOR 



00^770 

\J\JH 1 1 \J 








TST17: 


SCOPE 


#17,$TESTN 


WW** f f C 


01P737 


000017 

wwWw ' ' 


001 104 

WW • ' w~ 




nov 


V\J JV\J\J 




000001 


175746 

If J f ~w 




BIC 


feirO.aTcsR 


WW ^wwU 


0^?777 

VJC III 


000001 

wwwww 1 


175740 

\ 1 J f ~w 




BIT 


#BITO.aTCSR 


WW JW 1 H 


00K01 

WW 1 1 








BEO 


1$ 


WW J w 1 U 


1 w"tW"fW 








ERROR 


40 


0050P0 

WW ^VC V 


052777 

VJC Iff 


000001 

WWwWV 1 


175726 


1$: 


BIS 


fBITO.iTCSR 


WW-^WCU 


0^7777 


000001 

wwwww 1 


175720 




BIT 


/TBITO.aTCSR 


005034 

WW-/W J** 


001001 

WW 1 WW 1 








BNE 


2$ 


005036 

vw^ w 


104041 








ERROR 


41 


005040 

WW-/ W^ w 


042777 

W~C » » r 


000001 

wwwww ' 


175706 


2$: 


BIC 


#8IT0,aTCSR 


005046 


052777 


000001 


175700 




BIT 


#BITO.aTCSR 


005054 


001401 








BEO 


3$ 


005056 


104042 








ERROR 


42 


005060 








3$: 




M^. a#$ENV 

70$ 


005060 


032737 


000001 


001120 




BIT 


005066 


001403 








BEQ 


005070 


005737 


001106 






TST 


a#$PAss 


005074 


001014 








BNE 


TST20 


005076 








70$; 




#8IT0.aTCSR 


005076 


052777 


000001 


175650 




BIS 


005104 


000005 








RESET 


#8IT0.aTCSR 


005106 


012777 


000001 


175640 




BIT 


005114 


001404 








BEQ 


TST20 


005116 


0K2777 


000001 


175630 




BIC 


#BITO,aTCSR 


005124 


104043 








ERROR 


43 



;iTEST 17 TEST SLU2 BIT0(8REAK BIT) CAN BE SET t CLEARED t RESET 

;;SET TEST NUMBER IN APT MAIL BOX 
.-MAKE SURE BIT UNDER TEST IS INITIALIZED 
; CHECK BITO OF TCSR CLEAR 
*BR IF CLEAR 

•BITO WAS NOT CLEAR AFTER RESET 
;SET BITO IN TCSR 
;TEST BITO OF TCSR 
'BR IF SET 

;BITO OF TCSR WILL NOT SET 
.•CLEAR BITO OF TCSR 
.•TEST BITO OF TCSR 

;BITO OF TCSR WILL NOT CLEAR 

:ARE WE RUNNING UNDER APT 
;IF NO THEN DO TEST 
;IS THIS FIRST PASS 
;IF NO THEN SKIP TO NEXT TEST 

;SET BITO IN TCSR 
.•CLEAR BITO WITH RESET 
.-TEST BITO CLEAR 

•BR IF CLEAR 
.•CLEAR BITO. TO PRINT ERROR 
:RESET DID NOT CLEAR BITO OF TCSR 

• ■**•*»**•****♦••******♦»••***•***•**#•*«***•**»*•**•»*•*•••••*** 

;'*TEST 20 TEST THAT SLU2 BJT6(XMIT INT EN) CAN BE SET ft RESET 

• • *************************************************************** 



005126 


000004 






005130 


012737 


000020 


001104 


005136 


042^77 


000100 


175610 


005144 


017703 


U562e 




005150 


012777 


005200 


175620 


005156 


004737 


012356 




005162 


000340 






005164 


012777 


000100 


175562 


005172 


001404 






005174 


104044 






005176 


000402 






005200 


022626 






005202 


104045 







TST20: SCOPE 



1$: 



MOV 


#20.$TESTN 


BIC 


#BIT6,aTCSR 


MOV 


aTVECT,R3 


MOV 


#l$.aTVECT 


JSR 


PC.WRPSW 




.WORD 340 


BIT 


#BIT6.aTCSR 


BEQ 


2$ 


ERROR 


44 


BR 


2$ 


CMP 


(SP)*. (SP)* 


ERROR 


45 



;;SET TEST NUMBER IN APT MAIL BOX 

;MAKE SURE BIT UNDER TEST IS INITIALIZED 

;SAVE XMIT VECTOR 

.-SET UP INTERRUPT VECTOR FOR ERROR REPORT 
;SET PSW TO PRIORI TY=? 

.•TEST BIT6 OF TCSR 
.•BR IF ZERO 

;8IT6 IN TCSR NOT CLEAR AFTER RESET 



.•RESTORE SP AFTER INTERRUPT 
;XMIT INTERRUPT OCCURRED PRI0=7 
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T20 TEST THAT SLU2 8IT6(XHIT INT EN) CAN BE SET t RESET 



SEQ 0041 



^607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
(3) 
(3) 
(2) 
(2) 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
16'.4 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 



005204 
005212 
005220 

005222 



005224 
005232 
005240 
005242 



005244 
005252 
005254 
005260 
005262 
005262 
005270 
005272 
005300 

005302 

005304 



005310 
005312 
005320 
005326 
005332 
005340 
005344 
005346 
005354 
005356 



052777 000100 175542 2$: 
032777 000100 175534 

001001 

104046 



042777 000100 175522 3$: 
032777 000100 175514 
001401 
106047 



032737 
001403 
005737 
001011 

052777 
000005 
032777 
001401 

104050 

010377 



000004 
012737 
0^2777 
017703 
0}2777 
004737 
000340 
032777 
001404 
104051 



005360 000402 



BIS 
BIT 
BNE 



#BIT6.aTCSR 
#6IT6,aTCSR 
3$ 



ERROR 46 



005362 
005364 



005366 
005374 
005402 

005404 



005406 



022626 
104052 



052777 
032777 
001001 

104053 
u^*2777 



000001 
001106 

000100 
000100 

175466 



001120 4$: 



175464 
175454 



70$: 



5$: 



BIC 
BIT 
BEQ 
ERROR 



BIT 
BEQ 
TST 
BNE 

BIS 
RESET 
BIT 
BEQ 

ERROR 

nov 



*8IT6.aTCSR 

*8IT6.aTCSR 

4$ 

47 



70$ 

a#$PASS 

5$ 

»6IT6,aTCSR 

JVBIT6,aTCSR 
5$ 

50 

R3.aTVECT 



;SET BIT6 OF TCSR 
.•TEST BIT6 OF TCSR 
;BR. IF SET 



.•CANNOT SET 81^6 OF TCSR 

.CLEAR 81 T6 OF TCSR 
.-TEST BIT6 OF TCSR 
;8R IF CLEAR 

.•CANNOT CLEAR 81 T6 OF TCSR 

;ARE UE RUNNING UNDER APT 

;IF NO THEN DO TEST 

;IS THIS FIRST PASS 

;IF NO THEN SKIP TO END OF TEST 

.-SET 81 T6 OF TCSR 
.•CLEAR 81 T6 WITH RESET 
.•TEST 81 T6 OF TCSR 
;8R IF CLEAR 



.•CANNOT CLEAR BIT6 OF TCSR WITH RESET 
.•RESTORE XMIT VECTOR 



••♦♦A************************************************************ 

!-iTEST 21 TEST THAT SLU2 BIT6 OF RCSR CAN BE SET I RESET 

■ •*»»*♦♦»**•*♦•»♦♦*♦****♦*♦•♦••*****•*•••**********••*•**•****•*• 



TST21 : SCOPE 



000021 


001104 




MOV 


*21,$TESTN 


000100 


175422 




BIC 


»6IT6.aRCSR 


175440 






nov 


aRVECT.R3 


005362 


175432 




nov 


«l$.aRVECT 


012356 






JSR 


PC.WRPSU 










.WORD 340 


000100 


175374 




BIT 


«eiT6,aRCSR 








BEQ 


2$ 








ERROR 


51 








BR 


2$ 






1$: 


CMP 


(SP)*,(SP)* 








ERROR 


52 


000100 


175354 


2$: 


BIS 


#8ir6.aRCSR 


000100 


175346 




BIT 


#BIT6.aRCSR 








BNE 


3S 








ERROR 


53 


000100 


175334 


3$: 


BIC 


#BIT6.aRCSR 



;;SET TEST NlWER IN APT HAIL BOX 

.-MAKE SURE BIT UNDER TEST IS INITIALIZED 

;SAVE RECEIVE VECTOR 

.-SET UP INTERRUPT VECTOR FOR ERROR REPORT 
;SET PSW TO PRIORI TY= 7 

.•TEST BIT6 OF RCSR 

;8IT6 OF RCSR NOT CLEAR AFTER RESET 

.•RESTORE SP AFTER INTERRUPT 

;RCVR INTERRUPT WITH PRIORI TY=7 

.SET 81 T6 OF RCSR 
.-TEST 8IT6 OF RCSR 
;8R. IF SET 

.•CANNOT SET 81 T6 OF RCSR 
;CLtAR 81 T6 OF RCSR 
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1659 


005AK 


^ 77^ 

032777 


1660 


005A 22 


001401 


1661 






1662 


005424 


4 A y AC y 

104054 


1663 






166A 






^ £ £ e 

1665 


005426 


A7 T 7 7 

032737 


1666 


005434 


AA 4 / A7 

001403 


^ £ £ t 

1667 


005436 


005737 


1668 


005442 


00101 1 


1669 


A C 1 1 t 

005444 




1670 


005444 


AC ^777 

052777 


1 O ' 1 


AAC / C T 

005452 


AAAAAC 

000003 


1672 


AAC t C t 

005454 


ATT777 

052777 


1673 


AAC y X 

005462 


AAi y Ai 

001401 








1675 


AAC i 

005464 


1 A/ AC C 

104055 


1676 








AAC i A. 

005466 


A1 AT77 


1678 






1 o/V 






1680 






1 6<5 1 






(3) 






A 7 \ 

(3) 








Arte/ Ti 


AAAAA/ 

OOOOOh 




AAC/ 7/ 


A1 ^777 

VICfJf 




AAC CA^ 

0U550£ 


AACA77 

0050r / 


l6o3 


AACCA^ 

005506 


AAC AAA 
005000 




AACCi A 

005510 


AACA77 

0050^r 


160 J 


AACC 1 / 

00551H 


1 AC777 


1686 


AAC C *^A 

005520 


1 AA/ A 7 

100h03 


loo 7 


AACC 

005522 


AAC ^AA 
005^00 


1x00 
I000 


AACC 5/ 

0055i:*» 


AA1 777 


1 X on 

1689 


005526 


1 A/ ACZ 

104056 








1691 








AACC 7A 

005530 


A7^777 


i6V3 


AAC C 

005 5 36 


AA1 / A7 
001 S03 


16VA 


AAC C / A 

005540 


AAC777 

005 r3r 




AACC/ / 

0055^H 


AA1 AAC 
001005 


1696 


AAC C/ ^ 

005546 




1 

1 riW ^ 


AACC/ X 


AAAAAC 
000UU5 


1698 


AAC CCA 

005550 


i AC777 

1057r r 




005 5 5h 


AA1 / A1 

001401 


1 7nA 






1 7A1 


AAC CC^ 

005550 


1 A/ AC7 

10405r 


1 7A^ 






1 7A7 

1 703 


AACCZ.A 

005560 


AAC777 


1 7(\L 






1705 






1706 






1707 






(3) 






(3) 






(2) 


005564 


000004 



000022 
175244 

175242 
175230 



000001 
001106 

175174 
175166 



0 4 
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T21 TEST THAT SLU2 BIT6 OF RCSR CAN BE SET % RESET 

BIT #8IT6.aRCSR ;TEST BIT6 OF RCSR 
BEQ 4S .-BR. IF CLEAR 



SEO 0042 



70$: 



ERROR 54 

.•CANNOT CLEAR BIT6 OF RCSR 

BIT #1,a#SENV :ARE WE RUNNING UNDER APT 

BEQ 70$ ;IF NO THEN DO TEST 

TST »r$PASS ;IS THIS FIRST PASS 

BNE 5$ :IF NO THEN SKIP TO END OF TEST 

BIS #BIT6.aRCSR ;SET BIT6 OF RCSR 

kESET .-CLEAR BIT60F RCSR WITH RESET 

BIT #BIT6.aRCSR .-TEST BIT6 OF RCSR 

BEQ 5$ ;BR, IF CLEAR 



001104 





ERROR 


55 










.•CANNOT CLEAR BIT6 OF RCSR WITH RESET 


5$: 


nov 


R3,aRVECT 


.•RESTORE RECEIVE VECTOR 


••*********************'***************•************************** 


.••TEST 


22 


TEST THAT SLU2 


RCVR DONE (7) SET ft CLEAR PROPERLY 


***************************************************************** 


TST22: 


SCOPE 








MOV 


#22. $TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 




CLR 


aRBUF 


.•INITIALIZE REGISTER BEFORE TESTING 




CLR 


RO 


.•CLEAR TIMER 




CLR 


aTSUF 


;LOAD TRANSMIT BUFFER 


WDONE: 


TST8 


aRCSR 


.■CHECK FOR RECEIVER DONE 




BMI 


1$ 


;8R. IF DONE 




INC 


RO 


.•INCREMENT TIMER. IF NOT DONE 




BNE 


UDONE 


.•CONTINUE WAIT IF TIME REMAINS 




ERROR 


56 





001120 1$: 
70$: 



BIT #1,a#$ENV 

BEQ 70$ 

TST a#$PASS 

BNE 2$ 

RESET 

TST6 aRCSR 

BEQ 2$ 



2$: 



ERROR 
TST 



57 

aRBUF 



RECEIVER DONE NEVER SET 



.•ARE WE RUNNING UNDER APT 

;IF NO THEN DO TEST 
;IS THIS FIRST PASS 
;IF NO THEN SKIP TO END OF TEST 

.'CLEAR DONE WITH RESET 
.CHECK FOR DONE CLEAR 



.•RESET DID NOT CLEAR RCVR DONE 
.•CLEAR RECEIVER BUFFER 



***************************************************************** 

;'*TEST 23 TEST SLU2 THAT READING R8UF CLEARS RECEIVER DONE 

• - ********** *********************************** ******* 

tST23: SCOPE 



CJKDIAO 


11/258 


SLU LTC 


REPR DIAG 


CJKDIA. 


P11 20-0CT-81 


16:08 




(2) 


005566 


012737 


000023 


001104 


1708 


005574 


005077 


175152 




1709 


005600 


005077 

W V W f r 


175152 




1710 


005604 


105777 

1 Iff 


175U0 




1711 


005610 


100375 

1 WV J » 






1 712 


00561? 


01 7700 

V 1 ' » WW 


175134 




1713 


005616 


105777 


175126 




1714 


005622 


001401 

WW 1 W ' 






1715 


005624 


104060 






1716 










1717 


005626 








1718 










1719 










(3) 










(3) 










(2) 


005626 


000004 

w w w w w^ 






(2) 


005630 


012737 


000024 


001104 


1720 


005636 


032737 


000004 


001156 


(1 ) 


005644 


001002 






(1) 


005646 


000137 


006100 




(1) 


005652 








1721 


005652 


013703 


000004 




Mil 


005656 


012737 


005672 


000004 


1723 


005664 


005777 


175100 




1724 


005670 


000402 






1725 










1726 


005672 


022626 






1727 


005674 


104061 






1728 










1729 


005676 

WW ^ W ' w 


010337 


000004 




1730 










1731 










(3) 










(3) 










(2) 


005702 


000004 






(2) 


005704 


012737 


000025 


001104 


1732 


005712 


0W777 


000100 


175050 


1753 


005720 


017703 


175066 




1734 


005724 


012777 


005754 


175060 


1735 


005732 


004737 


012356 




1736 


005736 


000340 






1737 


005740 


012777 


000100 


175022 


1738 


005 746 


001404 






1739 


005750 


104062 






1740 










1741 


005752 


000402 






1742 










1743 


005754 


022626 






1744 


005756 


104063 






1 745 










1746 










1747 


005760 


0S2777 


000100 


1 75002 


1748 


005766 


052777 


000100 


174774 


1749 


005774 


001001 






1750 










1751 


005776 


104064 
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T23 TEST SLU2 THAT READING RBUF CLEARS RECEIVER DONE 



SEQ 0043 



IS: 



HOV 

CLR 

CLR 

TST8 

BPL 

MOV 

TSTB 

BEO 

ERROR 



#23.$TESTN 

aRBUF 

aTBUF 

aRCSR 

1$ 

aRBUF, RO 
aRCSR 
TST24 
60 



LTCRT: 



;;SET TEST NUMBER IN APT WAIL BOX 
.•INITIALIZE REGISTER BEFORE TESTING 
.•LOAD TRANSMITTER 
.-WAIT FOR RECEIVER DONE 

;READ RECEIVE BUFFER 

.•CHECK FOR RECEIVE DONE CLEAR 

;BR, IF CLEAR TO NEXT TEST 

.•READING RBUF DID NOT CLEAR RCVR DONE 



•West 24 test ability to access lks 

■ **************************************************************** 

tST24: SCOPE 

' ;;SET TEST NUMBER IN APT HAIL BOX 

;D0 THESE TESTS FOR THIS DEVICE? 
;F YES CONTINUE WITH TESTS 
;IF NO GO TO START OF NEXT SET OF TESTS. 

.•SAVE TIMEOUT VECTOR 
;SET UP TIMEOUT VECTOR 
.•ACCESS LKS 

;N0 TIMEOUT - BR TO END OF TEST 

.•RESTORE SP AFTER TIMEOUT 
.-CAN NOT ACCESS LKS 

.•RESTORE TIMEOUT VECTOR 



99$: 



1$: 



2$: 



MOV 


*24.$TESTN 


BIT 


/yBIT2.a#$DEVM 


BNE 


99$ 


JMP 


UNIQUE 


MOV 


a#4.R3 


MOV 


#i$.a#4 


TST 


aLKS 


BR 


2$ 


CMP 


(SP>*. <SP)* 


ERROR 


61 


MOV 


R3.a#4 



**************^***** ************* 

iTEST 25 TEST THAT BIT6 OF LKS CAN BE SET t RESET 

**************************************************************** 

TST25: SCOPE 

;;SET TEST NUMBER IN APT MAIL BOX 

.-MAKE SURE BIT UNDER TEST IS INITIALIZED BEFORE TESTING 
.•SAVE LINE CLOCK VECTOR 
;SET UP INTERRUPT VECTOR FOR ERROR REPORT 
;SET PSU TO PRIORITY 7 

.•TEST BIT6 OF LKS 
;BIT6 OF LKS NOT CLEAR AFTER RESET 



1$: 



2$: 



MOV 


/r25.$TESTN 


BIC 


/lfBIT6.aLKS 


MOV 


afiTCVT,R3 


MOV 


/|fl$.aRTCVT 


JSR 


PC.URPSU 




.WORD 340 


BIT 


/TBI T6, aLKS 


6EQ 


2$ 


ERROR 


62 


BR 


2$ 


CMP 


(sp;+,(sp)+ 


ERROR 


63 


BIS 


/rBIT6,aLKS 


BIT 


«irBIT6.aLKS 


BNE 


3$ 


ERROR 


64 



.•RESTORE SP AFTER INTERRUPT 

;LKS INTERRUPT WITH PRI0RITY=7 

.-SET BIT6 OF LKS 
.-TEST BIT6 OF LKS 
;8R IF SET 
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T25 TEST THAT BIT6 OF LKS CAN BE SET » RESET 



SEQ 0OA4 



1 7c "y 

I f^c 








1 7C I 








1 7C/ 


AAA 

006000 


A/ 0777 


AAA1 nn 
0001 00 


1 

1 (^35 


AA^ AA^ 

006006 


A15777 


AAA1 A A 

000100 


1 7C<i 

1 /^5D 


AAXA1 / 

OOoO l*» 


AAi / ni 
00 1 hU I 






AA^ A1 ^ 

006016 


IOhOoj 












1 7CQ 


AAX A5A 

0060<:0 


a7'5717 


AAAAA1 

000001 


1 7^A 


AA^ A5iL 
0060^6 


AA1 / AT 
001 H05 




] to \ 


AAz.A7n 

0U0U5U 


0U5 ^ 


nni 1 nA 
UU 1 1 uo 


1 7iL ^ 
1 'bd 


006U3*» 


AA1 A1 1 

00 1 U M 






AA>LA7A 

006056 






1 7^/ 


n/Sx ATX 
006036 


A^5777 

Ojt f f f 


AAA1 AA 

uuu 1 uu 


1 10} 


0060hh 


AAAAAC 

ouuuu> 






006Uh6 


03c ' f f 


nnni nn 
uuu 1 uu 




006U5*» 


AAi Am 

uu 1 hU I 




1 7XQ 








1 7AO 


UU6U56 


1 o*»uoo 




1 7 ?f\ 








1 771 


00606U 


U 1 U3f f 


1 7L 7JA 
\ f r CO 


1 775 


00606*» 






1 771 








1 77/. 








17 7^ 

1 ^ ^ J 


UU0U60 


1 f ( JOU 




1 77A 

1 f fO 




1 f 1 jOh 




1 777 


nnAn75 


1 7Asnn 

1 1 O JUU 






nnAn7A 

UUOU' H 


1 7A'>nA 

1 f 0 JUH 




1 770 

1 ^ r 7 


UUOU f o 






1 7an 








1 7B1 

1 r 0 1 








1 IOC 


AA^I AA 

006 1 uu 






1 7flT 

1 /^O J 








1 70/ 
















K a J 








1 0^ 

(c> 


AAA 1 nn 
UU6 1 uu 


UUUUUh 




\c) 


UUO 1 Vc 


ni '>7X7 


UUUUcD 


1 foj 


006 1 1 u 


075777 

\JjCi Ji 


nnnnm 


^ 1 > 


AAA 1 1 A 

006 1 1 6 


uu 1 mU3 




f ^ \ 

V 1 / 


UUO 1 cU 


AAC777 

UU J 1 JI 


nni inA 
uu 1 1 uo 


^ 5 ^ 


UU6 1 CH 


nni A 

uu 1 U50 




/ 1 1 

V 1 > 


ArtAI 5A 
006 1 c6 








AAAI 5 A 
006 1 £6 


m 5777 
\j\Cf Jl 


nnn7An 
uuu jhU 


1 7fl7 

1 for 








1 7flfl 


wo 1 J*» 


ni ?7nn 

U 1 c f UU 


uuouoo 




UUO 1 hU 


ni ^7(\x 

U Ic' Uj 


nn^nAA 
uuouoo 










1 701 


UUO 1 


ni ?7ni 

U 1 £ ' U 1 


nnnnni 


1 705 
1 rye 


UUO 1 jU 


nn'»n77 

UUJUj J 




1 79^ 


00615? 

VVV > JO 


077102 




179A 


0061 5A 


012770 


000100 


1795 


006162 


012701 


006066 


1796 


006166 


012702 


000005 


1797 


006172 


032731 


000100 


1798 


006176 


001006 




1799 


006200 


07720^ 





: CANNOT SET BIT6 OF IKS 



3$: 



4$: 



70$: 



5$: 



DADTBL: 



TBLEND: 



UNIQUE: 



SIC 


#BIT6.aLKS .-CLEAR BIT6 OF LKS 


BIT 


*8IT6,aLKS .-TEST 8IT6 OF LK 


ocw 


/ » 






65 


CANNOT CLEAR 81 T6 OF LKS 






BIT 




ADP ur DiiMMiiur: luunro apt 

Ant wC nUiWinm UnvCn nfl 


BEO 


70$ 


IF NO THEN DO TEST 


TST 


a#$PASs 


•IS THIS FIRST PASS 




5$ 


•IF NO THEN SKIP TO END OF TEST 


BIS 


/r6IT6,9LKS 


•SET 8IT6 OF LKS 


RESET 




•CLEAR BIT6 OF LKS WITH RESET 


BIT 


#6IT6,aLKS 


;TEST 8IT6 OF LKS 


BEO 


5$ 


;BR IF CLEAR 


ERROR 


66 






.-CANNOT CLEAR BIT6 OF LKS WITH RESET 


MOV 


R3.aRTCVT 


.-RESTORE LINE CLOCK VECTOR 


BR 


UNIQUE 


.-GO TO NEXT TEST 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



177560 
177564 
176500 
176504 
177564 



• • »*«»*««••**••*«*•••*•«*•*«•••*•*••**•**»***»**•*»*****»******** 
" 26 UNIQUE INTERNAL ADDRESS TEST 



.-♦TEST 

TST26: 



SCOPE 





MOV 


#26.$TESTN 




BIT 


#1, a#$ENV 




BEO 


70$ 




TST 


aA$PASS 




BNE 


TST27 


70$: 








MOV 


#340. PS 




MOV 


mDT6L,R0 


1$: 


MOV 


mDTBL.R3 




MOV 


#5.R1 


2$: 


CLR 


a(R3)+ 




S08 


R1.2$ 




MOV 


#6116. a(R0) 




MOV 


mDTBL.Rl 




MOV 


#5.R2 


3$: 


BIT 


#8IT6.a(R1)* 




BNE 


5$ 


4$: 


SOB 


R2,3$ 



.•SET TEST NUMBER IN APT MAIL BOX 

ARE WE RUNNING UNDER APT 

IF NO THEN DO TEST 

IS THIS FIRST PASS 

IF NO THEN SKIP TO NEXT TEST 

WE WILL BE PLAYING WITH BIT6 
SO LOCK OUT EXTRAINEOUS INTERRUPTS 
GET LOCATION OF FIRST REGISTER ADDRESS 
MAKE R3 POINT TO LOCATION OF FIRST 
REGISTER ADDRESS 

SET LOOP COUNTER TO CLEAR ALL REG. 
CLEAR A REGISTER 

LOOP UNTIL ALL REGISTERS CLEARED 

SET TEST BIT IN DEVICE REGISTERS 

GET LOCATION OF FIRST REGISTER ADDRESS 

SET UP TEST LOOP COUNTER 

IS TEST BIT SET IN THIS REGISTER 

IF YES GO SEE IF THERE IS AN ERROR 

LOUP UNTIL ALL REGISTER CHECKED 
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T26 UNIQUE INTERNAL ADDRESS TEST 



1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
^808 
1809 
1810 
1811 
1812 
1813 
18U 
1815 
1816 
1817 
1818 



006202 005030 



006204 
006210 
006212 
006214 
006216 
006220 
006224 
006230 
006236 
006244 

006246 
006252 
006254 
006256 
006260 



020027 
001421 
000752 
021041 
001413 
011037 
011137 
017037 
017137 
104072 

062701 
000752 
005000 
005200 
001376 



006076 



001020 
001022 
000000 
000000 



000002 



001024 
001026 





CLR 


8(R0)-i- 






RO /VTBLEND 




DC V 


7% 




BR 


1$ 


5$: 


CMP 


(R0),-(R1) 


BEQ 


6$ 




liOV 


(RO) .SGDADR 




MOV 


(RD IBDADR 




MOV 


a(RO} ,$gddat 




MOV 


a(Rl).$BDDAT 




ERROR 


72 


6$: 


ADD 


#2.R1 




BR 


4S 


7$: 


CLR 


RO 


8$: 


INC 


RO 




BNE 


8S 



.•CLEAR REGISTER JUST TESTED AND POINT 
;T0 NEXT ONE 



CONTINUE TESTING 

DID WE COMPARE THE REGISTER TO ITSELF 

IF YES GET OVER ERROR CALL 

IF NO SET UP ERROR INFORMATION 



WRITE TO 1 INTERNAL ADDRESS MODIFIED 
ANOTHER SO ADDRESS NOT UNIQUE 
RESTORE POINTER 
GET BACK IN TEST LOOP 
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> Oc V 


nOA2A2 








1 Oc 1 










< occ 










\ J f 
























000004 






(?) 




01 2737 


000027 


001 104 

VW 1 1 v"* 


1R?^ 
< Oc J 


VVQC ' C 


032737 


000001 


001 1?0 

vv 1 1 C V 


1 Oc 


no^^3^n 


001405 






1 RPS 


00^302 

\J\J\J J\JC 


005737 


001 106 




1 Or u 


noA30ft 


001 40? 








0^/^310 

\J\J\JJ 1 V 


0001 37 


007016 

VVr V 1 O 




1 R?R 


006314 








( 1 ) 


006314 


032737 


000001 

wVvVw 1 


001156 

VV 1 ^ J\j 


( 1 ) 


006322 

WO-/C c 


001002 

\J\J 1 wc 






< 1 ) 


306324 


0001 37 

WV I J » 


007016 

Wr V 1 O 




( 1 ^ 


006330 








18P9 

1 OC 7 


006330 


000005 

W Wv 








00633? 


042777 

V*tCi Iff 


000100 

Wv 1 w 


1744?4 

1 f C ~ 




006340 


017703 


17444? 




1 8^? 


006344 


\J \ C f t ' 


006370 

WO-^ • V 


174434 




006352 


105777 

1 III 


174406 






006356 


100375 






183S 


006360 


004737 

W~ 1 J 1 


01?356 

V 1 C ^ 




1836 


006364 


000140 

WW 1 ~ V 






1837 


006366 

wu 


000402 

V W~ vC 






1838 










1839 


006370 

Ww^ r v 


022626 






1840 


006372 


104074 






1841 










184P 


006374 

Ww-^ r ~ 


012777 


0064 1 4 

WwT 1 ~ 


174404 


1843 


006402 


052777 

V^fe If* 


000100 

wv 1 V V 


174354 


18A4 


0064 1 0 

WW~ ' V 


000240 

V V VC » V 






1845 










1846 


00641? 


104075 






1847 










1848 


0064 1 4 

wot 1 "f 


0U7777 

V~ C » » ' 


000100 

wv ' w 


174342 


1849 


0064? 2 

wu~ c c 


022626 

VC C UC V 






1850 


006424 

V W~ C ~ 


010377 

V 1 V^ • ' 


174356 




1851 










1852 










1853 










(3) 










(3) 










(2) 

» C. ' 


006430 


000004 

V V V V v~ 






(2) 


00643? 

V W~ JC 


012737 

VIC* J ' 


000030 

V V W JV 


001 104 

VV 1 1 v^ 


1854 


006440 


0U2777 

V^ t » • • 


000100 

V W I VV 


174316 


1855 


006446 


004737 


012356 




1856 


006452 

WW~ t. 


000340 






1857 


006454 


01 7703 


1 74326 




1858 


006460 


012777 


006506 


174320 


1859 


006466 


105777 


171.272 




1860 


006472 


100375 






1861 


006474 


052777 


000100 


17^,262 


1862 


006502 


000240 






1863 


006504 


000402 







H 4 
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T26 UNIQUE INTERNAL ADDRESS TEST 

SLUIIT: 



10 



SEO 0046 



•TEST 27 TEST THAT SLUl XMIT INTERRUPTS ONLY WHEN ENABLED 

•*************************************************************** 

TST27: SCOPE 



MOV 


#27 STESTN 


•■SET TEST NUMBER IN APT MAIL BOX 


BIT 


#1 .i#SENV 


•IF NOT UNDER APT 


BEQ 


70$ 


: THEN RUN THIS SERIES OF TESTS 


TST 


a^csPASS 


: ELSE IF FIRST PASS 


BEQ 


70$ 


THEN RUN THESE TESTS 


J/*V* 


SLU2IT 


ELSE DO NOT RUN THESE TESTS 


BIT 


#8IT0,anDEVM 


;D0 THESE TESTS FOR THIS DEVICE? 


6NE 


99$ 


;F YES CONTINUE WITH TESTS 


JMP 


SLU2IT 


;IF NO GO TO START OF NEXT SET OF TESTS. 


RESET 




.•CLEAR THE WORLD 


BIC 


#BIT6,aCTCSR 


.•CLEAR TRANSMIT INTERRUPT ENABLE 


nov 


aCTVECT,R3 


.•SAVE XMIT VECTOR 


MOV 


#2$,aCTVECT 


.•POINT X«IT VECTOR TO ERROR REPORT 


TST8 


aCTCSR 


.-WAIT FOR DONE 


BPL 


IS 




JSR 


PCURPSU 


;SET PSW TO PRIORITY 3 




.WORD 140 




BR 


3$ 




CMP 


(SP)+.(SP)* 


.•RESTORE SP AFTER INTERRUPT 


ERROR 


74 






;XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 


MOV 


#4$,aCTVECT 


.-SET XMIT VECTOR TO CND OF TEST 


BIS 


*8IT6.aCTCSR 


.•ENABLE INTERRUPTS 


NOP 






ERROR 


75 


;XMIT DID NOT INTERRUPT 


BIC 


*8IT6.aCTCSR 


.•DISABLE INTERRUPTS 


CMP 


(SP>+.(SP)* 


.-RESTORE SP AFTER INTERRUPT 


MOV 


R3,aCTVECT 


.•RESTORE XMIT VECTOR 



70$: 
99$: 

1$: 

2$: 
3$: 

4$: 



-•**********•***********«**************************************** 

•'•TEST 30 TEST SLUl XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 

***************************************************************** 

tsT30: SCOPE 

.•;SET TEST NUMBER IN APT MAIL BOX 
.•DISABLE INTERRUPTS 
;SET PSW TO PRIORITY 7 



MOV 
BIC 
JSR 



1$; 



MOV 
MOV 

TST8 

BPL 

BIS 

NOP 

BR 



#30.$TESTN 
#8IT6,aCTCSR 
PC.WRPSU 
.WORD 340 
aCTVECT.R3 
#2$.aCTVECT 
aCTCSR 
1$ 

#8IT6.aCTCSR 
3$ 



.•SAVE XMIT VECTOR 

.•POINT XMIT VECTOR TO ERROR REPORT 
.•WAIT FOR DONE 

.•ENABLE INTERRUPT 

.'CONTINUE TEST 
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186A 








1865 


006506 


022626 




1866 


006510 


104076 




1867 








1868 


006512 


0^2777 


A A A 1 A A 

000100 


1869 


006520 


A4 T 777 

0^2777 


AA^ C / A 

006540 


1870 


006526 


AA/ 77 7 

004737 


A^ ^7CZ 

012356 


1871 


006532 


A A A 4 / ^ 

000140 




1872 


006534 


A A A^ / A 

000240 




1873 


006536 


AAAy A ^ 

000402 




1874 








1875 


006540 


AT^Z ^Z 

022626 




1876 


006542 


1 A/ A77 

1040// 




1877 








1878 


AAZ. C / > 

006544 


Ai A777 

0i03/^ 


1 7/ 

1 74236 


1879 








1880 








1881 








(3) 








(3) 








(2) 


AA^ CCA 

006550 


AAAAAy 

000004 




(2) 


AAZ. C C ^ 

006552 


A1 

012/37 


AAAA71 

000031 


1882 


AAZ^ A 

006560 


042/// 


AAA1 A A 
000 1 00 


1883 


006566 


A1 "y^AT 

01 7/03 


17/ 01/ 


1884 


AAZ C 7"^ 

0065/^ 


A1 77f\l 
01 //04 


1 7/ "^l O 




AAZ^ C 7^ 

0065/6 


A1 "^T?? 

\J\cf7f 


006640 


loo6 


AA^^A/ 

006604 


A1 "5777 


000340 


i 007 

1887 


AAX^ 1 "5 

006612 


004/3/ 


AI '5TCZ. 

01<:356 


4 ooo 

1888 


AA^X i Z. 

006616 


AAA1 / A 

000140 




lo89 


AA^^^A 

006620 


1 AC777 


1 7/ 1 / A 


4 OOA 

1890 


006624 


1003/5 




i om 

1891 


AA^Z 

006626 


AC 0777 


AAA1 AA 

000100 


1 OA^ 

1892 


006634 


AAAO/ A 

000240 




1895 








1894 


AA^^ TZ. 

006636 


1 A/ i AA 

104100 




189? 








1896 


AAXiL/ A 

00604 U 






1 Of^7 

189/ 


00oo4^ 


A1 ■5777 


AAiLX.7A 
UOOO/0 


1 ono 
1898 


AA^Z. C A 

006650 


f\f\/ 777 

004/3/ 


A1 OTC^ 

01 £350 


1 oof) 
1899 


AA^X C/ 

006654 


AAA1 / A 

000140 




1900 


AA^^ 

006656 


AAA'^y A 

000240 




1 *'01 


AAX ZX. A 

006660 


A/ ^777 

042/// 


AAA1 AA 

000100 


1902 


006666 


AAA/ 

0004U<: 




1903 








1 OA/ 

1 V04 


AA^X7A 


02£626 




1 AAC 

1905 


AAZ.Z.70 

0066 /£ 


1 A/ 1 A1 

104101 




19U6 








1 AA7 

1 yOf 


0066/4 


A1 AT77 

01 03// 


17/1 f\t. 

1/4106 


1 AAO 

'90o 


AA^ ^AA 

006/00 


Ai A/ 77 
0104// 


17/1 A/ 

1 /4 (04 










1910 








(3) 








(3) 








(2) 


006704 


000004 




(2) 


006706 


012737 


000032 


1911 


006714 


042777 


000100 



001104 
174176 



174202 
174176 



174130 

174136 
174076 



DNMAC 

T30 



2$: 
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TEST SLU1 XniT INTERRUPTS DO NOT OCCUR WHEN DISABLED 



SEQ 0047 



4S: 



5S: 



CW> CSP)*.(SP)* 

ERROR 76 

BIG *8JT6,aCTCSR 

MOV #4$.aCTVECT 

JSR PCURPSU 

.WORD 140 

NOP 

BR 5$ 

CMP (SP)*, (SP)* 

ERROR 77 

MOV R3.aCTVECT 



.•RESTORE SP AFTER INTERRUPT 

;XMJT INTERRUPTS AT PRIORI Ty=7 
.-CLEAR INTERRUPT ENABLE 
.•POINT XMIT VECTOR TO ERROR REPORT 
.-SET PSW TO PRIORITY 3 



:BR TO END OF TEST-NO INTERRUPT 

.•RESTORE SP AFTER INTERRUPT 

;XMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
.•RESTORE XMIT VECTOR 



•TEST 31 TEST SLUl TRANSMI 

• •************************#***** 

TST31 : SCOPE 

MOV *31.$TESTN 
BIC #BIT6,aCTCSR 
MOV aCTVECT.R3 
MOV aCTPSU,R4 
MOV *2$-aCTVECT 
MOV #340.aCTPSW 
JSR PC.URPSU 

.WORD 140 
1$: TST6 aCTCSR 
1S 

«8IT6,aCTCSR 



TTER FOR DOUBLE INTERRUPTS 
******************************** 

.-SET TEST NUMBER IN APT MAIL BOX 

CLEAR INTERRUPT ENABLE 

SAVE XMIT VECTOR 

SAVE XMIT PSW VECTOR 

SET UP XMIT VECTOR 

SET PIO 7 AFTER INTERRUPT 

SET PSW TO PRIORITY 3 



TST6 
BPL 
BIS 
NOP 



WAIT FOR DONE 
ENABLE INTERRUPTS 



ERROR 100 

2$: CMP (SP)+,(SP)* 

MOV #4$.aCTVECT 

JSR PC.WRPSW 

.WORD 140 
NOP 

BIC *6IT6.aCTCSR 

BR 5$ 

4$: CMP (SP)*.(SP)* 

ERROR 101 

5$: MOV R3.aCTVECT 

MOV R4,aCTPSW 



XMIT INTERRUPT DID NOT OCCUR 
RESTORE SP AFTER INTERRUPT 
POINT XMIT VECTOR TO ERROR 
SET PSW TO PRIORITY 3 

GIVE TIME FOR ANY INTERRUPTS 
DISABLE INTERRUPTS 
BR TO END OF TEST 

RESTORE SP AFTER INTERRUPT 

XMIT RE-INTERRUPTED 
RESTORE XMIT VECTOR 
RESTORE XMIT PSW VECTOR 



001104 
174042 



'•TEST 32 TEST THAT SLUl XMIT INTERRUPT CLEARS WITH LOADING TBUF 

**************************************************************** 

tST32: SCOPE 

MOV #32. STESTN ;;SET TEST NUMBER IN AP^ HAIL BOX 

BIC *8IT6.aCTCSR ;OIi>ABLE INTERRUPTS 
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T32 TEST THAT SLUl XHIT INTERRUPT CLEARS WITH LOADING TBUF 



SEQ 0048 



1912 


0C6722 


004737 


012356 


191 5 


006726 

WW* 


000340 




19K 


006730 


017703 


174052 


1915 


006734 


012777 


007006 


1916 


006742 


052777 


000100 


191 7 


006750 


005077 


174012 


1918 


006754 


105777 


1 74004 


1919 


006760 


100375 




1920 


006762 


005077 


174000 


1921 


006766 


004737 


012356 


192? 


0C6772 


000140 




1923 


006774 


000240 




192A 


006776 


042777 


000100 


1925 


007004 


000402 




1926 








1927 


00/^006 


022626 




1928 


007010 


104102 




1929 








1930 


007012 


010377 


173770 


1931 








1932 








1933 


007016 






1934 








1935 








(3) 








(3) 








(2) 


007016 


000004 




(2) 


007020 


012737 


000033 


1936 


007026 


032737 


000002 


(1) 


007034 


001002 




(1) 


007036 


000137 


010762 


(1) 


007042 






1937 


007042 


042777 


000100 


1938 


007050 


017703 


173722 


1939 


007054 


012777 


007100 


1940 


007062 


105777 


173666 


1941 


007066 


100375 




1942 


007070 


004737 


012356 


1943 


007074 


000140 




1944 


007076 


000402 




1945 








1946 


007100 


022626 




1947 


007102 


104116 




1948 








1949 


007104 


012777 


007124 


1950 


007112 


052777 


000100 


1951 


007120 


000240 




1952 








1953 


007122 


104117 




1954 








1955 


007124 


042777 


000100 


1956 


007132 


022626 




1957 


007134 


010377 


173636 


1958 








1959 








1960 









174044 
174014 



1$: 



173760 



2$: 
3$: 

SLU2IT: 



JSR 


PC.WRPSU 


;SET PSW TO PRIORITY 7 




.WORD 340 




MOV 


aCTVECT,R3 


.-SAVE XMIT VECTOR 


NOV 


#2S,aCTVECT 


.•POINT XMIT VECTOR TO ERROR 


BIS 


#81T6,aCTCSR 


.'ENABLE INTERRUPTS 


CLR 


aCTBUF 


.•LOAD TBUF 


TSTB 


aCTCSR 


.•WAIT FOR DONE (INTERRUPT) 


BPL 


1$ 




CLR 


■C loUr 


■ c 71 1 ccrokin diicccd th dccct tut 
.riLL bcLUNl) bUrrcn lU Ncbcl INI , 


JSR 


PC.URPSW 


.■ALLOW INTERRUPTS 




.WORD 140 




NOP 




.•GIVE TIME FOR ANY INTERRUPTS 


BIC 


#6IT6,aCTCSR 


.-DISABLE INTERRUPTS 


BR 


3$ 


;BR TO END OF TEST 


CMP 


(SP)+,(SP)* 


.•RESTORE SP AFTER INTERRUPT 


ERROR 


102 








.•LOADING TBUF DID NOT CLEAR INTERRUPT. 


MOV 


R3.aCTVECT 


.•RESTORE XMIT VECTOR 



001104 
001156 



173704 
173714 



• • ***** 

;'*TEST 

;;****♦ 

TST33: 



173664 
173634 



99S: 
1$: 

2$: 
3$: 



********************************************************** 

33 TEST THAT SLU2 XMIT INTERRUPTS ONLY WHEN ENABLED 

********************************************************** 

SCOPE 

;;SET TEST NUMBER IN APT MAIL BOX 
;D0 THESE TESTS FOR THIS DEVICE? 
;F YES CONTINUE WJTH TESTS 
;IF NO GO TO START OF NEXT SET OF TESTS, 



MOV 
BIT 
BNE 
JMP 



*33,$TESTN 

#BITl,a«DEVM 

99$ 

LTCJT 



BIC 

MOV 

MOV 

TSTB 

BPL 

JSR 

BR 

CMP 
ERROR 

MOV 
BIS 
NOP 



#BIT6.aTCSR 
a:VECT.R3 
#2$.aTVECT 
aTCSR 

1$ 

PC.WRPSW 
.WORD 140 
3$ 

(SP)*,(SP)*- 
116 

#4$.aTVECT 
«6IT6, aTCSR 



ERROR 1 1 7 



173622 4$: 



8IC 
CMP 
MOV 



4r6IT6. aTCSR 
(SP)*.(SP)* 
R3.aTVECT 



.•CLEAR TRANSMIT INTERRUPT ENABLE 
;SAVE XMIT VECTOR 

.•POINT XMIT VECTOR TO ERROR REPORT 
:WAIT FOR DONE 

.-SET PSW TO PRIORITY 3 



.•RESTORE SP AFTER INTERRUPT 

;XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
.-SET XMIT VECTOR TO END OF TEST 
.•ENABLE INTERRUPTS 



.•XMIT DID NOT INTERRUPT 

.•DISABLE INTERRUPTS 
.•RESTORE SP AFTER INTERRUPT 
.•RESTORE XMIT VECTOR 



• **»»»»********************************************************* 



CJKDIAO 11/238 SLU LTC REPR DIAG 
CJKD1A.P11 20-OCT-81 16:08 

(3) 

(3) 

(2) 

(2) 007U2 012737 00003A 001104 
1961 007150 Oi,2777 000100 173576 
1962 
1963 

1964 _ 

1965 007170 012777 007216 173600 
1966 

1967 

1968 00720A 052777 000100 173542 
1969 
1970 
1971 
1972 
1973 
1974 

1975 007222 042777 000100 173524 

1976 007230 0y2777 007250 173540 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 

1988 
1989 
1990 

(3) 

(3) 

(2) 007260 000004 

(2) 007262 012737 000035 001104 

1991 007270 042777 000100 173456 

1992 007276 017703 173474 

1993 007302 017704 173472 

1994 007306 012777 007350 173462 

1995 007314 012777 000340 173456 

1996 007322 004737 012356 

1997 007326 000140 

1998 007330 105777 

1999 007334 100375 

2000 007336 053777 

2001 007344 000240 
2002 
2003 
2004 

2005 007350 022626 

2006 007352 012777 007400 173416 

2007 007360 004737 012356 

2008 007364 000140 
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T34 TEST SLU2 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 



SEO 0049 



(\f\^^Lf\ 


UUUUU't 




e\^\7^/. 5 


n^ 5777 


UUUU J** 


Wf 1 jU 


\JHci f f 


Uvv 1 UU 


007156 


004737 


012356 


007162 


000340 






ni 77n7 


1 77AnA 
1 f jOUO 


007170 


0-\2777 


007216 


0071 76 


105777 


173552 




1 UU J' J 






n^?777 


nnn inn 

UUU 1 UU 


W f C 1 C 


Uvvc'«U 










007216 


022626 




007220 


104120 




007222 


0*^2777 


000100 


007230 


0y2777 


007250 


007i;36 


00^717 


012356 


007242 


000140 




007244 


000240 




007246 


000402 




007250 


022626 




007252 


104121 




007254 


010377 


173516 



173420 

000100 173410 



007346 104122 



• *TFCT 




1 CO 1 OLUC Aril 1 


INTFRRUPTS DO NOT OCCUR UHFN DISARlE^D 


1 0 1 • 














■-SET TEST NUMBER IN APT MAIL BOX 




Di C 


#fiIT6 aTCSR 


■DISABLE INTERRUPTS 




J 


pr uRPSu 


•SET PSU TO PR'ORITY 7 






unRD 340 




MOV 


aTVECT.R3 


;SAVE XMIT VECTOR 




MOV 


#2$,aTVECT 


.•POINT XMIT VECTOR TO ERROR REPORT 


It • 


1 O 1 o 


aTT^R 


:WAIT FOR DONE 




RPI 


1) 






Di 1^ 


#fiIT6 aTCSR 


•ENABLE INTERRUPT 




NOP 








RR 




-CONTINUE TEST 


c * • 


TMP 


(SP)* (SP)* 


■RESTORE SP AFTER INTERRUPT 




ERROR 


120 








.-XMIT INTERRUPTS AT PRI0RITY=7 


3$: 


eic 


#61 T6, aTCSR 


.•CLEAR INTERRUPT ENABLE 




MOV 


#4S aTVECT 


■POINT XMIT VECTOR TO ERROR REPORT 




JSR 


PC URPSU 


•SET PSW TO PRIORITY 3 






UORD 140 






NOP 








BR 


5$ 


;8R TO END OF TEST-NO INTERRUPT 


4$: 


CMP 


(SP)*,(SP)* 


.-RESTORE SP AFTER INTERRUPT 




ERROR 


121 










;XMIT INTERRUPT OCCURES WITH BIT6 CLEAR 


5$: 


MOV 


R3. aTVECT 


.-RESTORE XMIT VECTOR 



• • ********************************** ******** *************** ****** 

•West 35 test slu2 transmitter for double interrupts 
***************************************************************** 

tST35; SCOPE 

.-.-SET TEST NUMBER IN APT MAIL BOX 
.•CLEAR INTERRUPT ENABLE 
.-SAVE XMIT VECTOR 
;SAVE XMIT PSW VECTOR 
.■SET UP XMIT VECTOR 
;SET PIO 7 AFTER INTERRUPT 
;SET PSU TO PRIORITY 3 



MOV 
BIC 
MOV 
MOV 
MOV 
MOV 
JSR 



1$: 



TST6 
BPL 
BIS 
NOP 



#35,$TESTN 
#BIT6. aTCSR 
aTVECT, R3 
aTPSW.R4 
#2$.aTVECT 
#340.aTPSW 
PC.WRPSU 
.WORD UO 
aTCSR 
1$ 

«6IT6. aTCSR 



ERROR 122 



2$: 



CMP 
MOV 
JSR 
.WORD 



(SP)*.(SP)+ 
#4$, aTVECT 
PC-URPSW 
146 



;UAIT FOR DONE 
.•ENABLE INTERRUPTS 



.XMIT INTERRUPT DID NOT OCCUR 
.•RESTORE SP AFTER INTERRUPT 
.POINT XMIT VECTOR TO ERROR 
;SET PSW TO PRIORITY 3 
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T35 TEST SLU2 TRANSMITTER FOR DOUBLE INTERRUPTS 



SEO U ' 





\AJr jOO 


000P40 




173356 


pnifl 

cU 1 V 


Uv ' 


04P777 

UMC fir 


000100 

VVv ■ VV 


CV 1 1 


VV 1 Jl \J 


00040? 

WV*t VC 






?01 ? 










?ni ^ 


VV* ••VV 


0??6?6 

VCCOCO 










104123 






?ni s 

cw I J 










c V 1 Q 


VV » VH 


010377 


173366 




?ni 7 


007410 


010477 


173364 




CV 1 O 










CV 1 T 










\ J / 










V ^ / 










V c / 


007414 


000004 




001104 


\ C / 


007416 
VV » •• I w 


012737 

V 1 C ' J ' 


000036 

VVVV^ V 


C VC V 


007424 


032737 

V^C ' J ' 


000001 

WW V 1 


001 1 20 

V V I 'WW 


(1 ) 


007432 

VV ~ 


001403 








007/ XL 


005737 

V V-/ t J9 


001106 

V V 1 ' V w 




(?) 


007440 


001046 

VV ' vy "T VJ 






\ 1 / 


007442 

VV' t 








?021 


007442 

VV 


V~C r * * 


000100 

VVV 1 WW 


1 73304 


2022 


007450 


004737 


012356 




?0?3 


007454 


000340 

VV V J~ V 








007456 


01 7703 


173314 




2025 


007462 


012777 


007534 


173306 


2026 


007470 


052777 

v-* t • ■ • 


000100 

www 1 w w 


173256 


2027 

CVC ' 


007476 


005077 


173254 




C VCw 


007502 


105777 


1 73246 




2029 


007506 


100375 






2030 

c v^v 


007510 


005077 


173242 




2031 


007514 


004737 


012356 




2032 

c v^c 


007520 


000140 






2033 

C \J J J 


007522 


000240 




173222 


2034 


007524 


01*2777 

V~ fc ■ ' ■ 


000100 


2035 

c v^ ^ 


007532 


000402 






2036 
c v^u 










2037 

C V^ r 


007534 


022626 

V w w Vfc V 






2058 


007536 


104124 






2039 










2040 


007540 


005001 






2041 

CV~ I 


007542 


005201 






2042 


007544 


001376 






2043 


007546 


005777 


1 73200 




2044 


007552 


010377 


1 73220 




2045 

c v~ > 










2046 










2047 

C V~ ' 










2048 

C V" V 










2049 










(3) 










(3) 










(2) 


007556 


000004 






(2) 


007560 


012737 


000037 


001104 


2050 


007566 


01*2777 


000100 


173160 


2051 


007574 


0t*2777 


000100 


173146 


2052 


007602 


017703 


173164 





4S: 
5$: 



NOP 
BIC 
BR 

C«P 
ERROR 

HOV 
MOV 



#BIT6.aTCSR 
5$ 

(SP)*.(SP)* 
123 

R3.aTVECT 

R4,aTPsy 



.•GIVE TIME FOR ANY INTERRUPTS 
.•DISABLE INTERRUPTS 
;8R TO END OF TEST 

.•RESTORE SP AFTER INTERRUPT 

;XMIT RE-INTERRUPTED 
.•RESTORE XMIT VECTOR 
.•RESTORE XMIT PSW VECTOR 



• • ************* 

•West 36 

• • ************* 

TST36: SCOPF 
MOV 
BIT 
BEO 
TST 
BNE 



************************************************** 

TEST THAT SLU2 XMIT INTERRUPT CLEARS WITH LOADING TBUF 
************************************************** 



70$: 



IS: 



2$: 



3$: 
4$: 



BIC 
JSR 

MOV 
MOV 

BIS 

CLR 

TST8 

BPL 

CLR 

JSR 

NOP 
BIC 
BR 

CMP 
ERROR 

CLR 
INC 
BNE 
TST 
MOV 



f36.fTESTN 
#1. anENV 
70$ 

a/v$PASS 

TST37 

«BIT6,aTCSR 

PCURPSU 

.WORD 340 

aTVECT,R3 

*2$.aTVECT 

#BIT6.aTCSR 

aTBUF 

aTCSR 

1$ 

aTBUF 
PC.WRPSU 
.UORD 140 

#BIT6. aTCSR 
3$ 

^SP)•^. (SP)* 
124 

R1 
R1 
4$ 

aRBUF 
R3,aTVECT 



;;SET TEST NUMBER IN APT MAIL BOX 

;ARE UE RUNNING UNDER APT 

;IF NO THEN DO TEST 

;IS THIS FIRST PASS 

;IF NO THEN SKIP TO NEXT TEST 

.•DISABLE INTERRUPTS 
;SET PSW TO PRIORITY 7 

.•SAVE XMIT VECTOR 

.•POINT XMIT VECTOR TO ERROR 

.•ENABLE INTERRUPTS 

.•LOAD TBUF 

;WAIT FOR DONE (INTERRUPT) 

;FILL SECOND BUFFER TO RESET INT. 
.•ALLOW INTERRUPTS 

;GIVE TIME FOR ANY INTERRUPTS 
.•DISABLE INTERRUPTS 
:6R TO END OF TEST 

.■RESTORE SP AFTER INTERRUPT 

.•LOADING TBUF DID NOT CLEAR INTERRUPT. 
.•INITIALIZE LOOP COUNTER 
.•INCREMENT LOOP COUNTER 
.•UNTIL LOOP COUNTER EQUALS 0 
.'CLEAR RECEIVER BUFFER 
.•RESTORE XMIT VECTOR 



•*****************************»*********»***************»******* 
'*TEST 37 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 

••****»****»****»*** ******************************************** 

ST37: SCOPE 

MOV #37.$TESTN ;;SET TEST NUMBER IN APT HAIL BOX 

BIC #BIT6. aTCSR .-DISABLE TRANSMIT INTERRUPTS 
BIC #BIT6,aRCSR .-DISABLE RECEIVER INTERRUPTS 
MOV aRVECT.R3 ;SAVE RECEIVE VECTOR 



CJKDMO 11/25B SLU LfC REPR DIA6 
CJKDIA.P11 20-OCT-81 16:08 



2055 


007606 


0'\2777 


007636 


205A 


0076U 


004737 


012356 


2055 


007620 


000140 


173130 


2056 


007622 


005077 


2057 


007626 


105777 


173116 


2058 


007632 


100375 




2059 




000402 




2060 








2061 


007636 


022626 




2062 


00 76 AO 


104125 




2063 








206^ 

2065 


007642 


0^2777 


007662 


2066 


007650 


052777 


000100 


2067 


007656 


000240 




2068 


007660 


104126 




2069 








2070 








2071 


007662 


0^2777 


000100 


2072 


007670 


022626 




2073 


007672 


010377 


1 73074 


207A 








2075 








2076 








(3) 








(3) 








(2) 


007676 


000004 




(2) 


007700 


012737 


000040 


2077 


007706 


004737 


012356 


2078 


007712 


000340 




2079 


007714 


017703 


173052 


2080 


007720 


0^2777 


007752 


2081 


007726 


005077 


173024 


2082 


007732 


105777 


173012 


2083 


007736 


100375 




208A 


007740 


/\r ^^^^ 

052777 


AAA 4 AA 

000100 


2085 


007746 


000240 




2086 


007750 


000402 




2087 


007752 


022626 




2088 


007754 


104127 




2089 








2090 
2091 


007756 


0^2777 


000100 


2092 


007764 


0^2777 


010004 


2093 


007772 


004737 


012356 


209A 


007776 


000140 




2095 


010000 


000240 




2096 


010002 


000402 




2097 








2098 


010004 


022626 




2099 


010006 


104130 




2100 








2101 


010010 


010377 


172756 


2102 








2103 








2104 









173156 



001104 
173044 
173002 



DNMAC 
T37 



If: 



M 4 
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TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 



SEO 0051 



2$: 



173122 3$: 
173072 



173060 4$: 



nov 

JSR 

CLR 
TSTB 
BPL 
BR 

CMP 
ERROR 



MOV 
BIS 
NOP 
ERROR 



BIC 
CMP 
MOV 



#2$.aRVECT 

PC.URPSW 

.UORD 140 

aTBUF 

aRCSR 

1S 

3$ 

(SP)+.(SP)+ 
125 



«4S,aRVECT 
#61 T6, aRCSR 

126 



«6IT6. aRCSR 
(SP)+.(SP)+ 
R3.aRVECT 



POINT RCV VECTOR TO ERROR REPORT 
SET PSW TO PRIORITY 3 

SEND A CHARACTER 

WAIT FOR RECEIVER DONE 

CONTINUE TEST 

RESTORE SP AFTER INTERRUPT 

RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 

POINT RCV VECTOR TO END OF TEST 
ENABLE RCV INTERRUPTS 
GIVE ANY INTERRUPTS TIME 

RCVR DID NOT INTERRUPT 

DISABLE INTERRUPTS 
RESTORE SP AFTER INTERRUPT 
RESTORE RECEIVE VECTOR 



•iTEST 40 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 

• • »*••««*••••*•♦••*•*•***•♦*••*•••••**•***••••*••*********••••*** 

tST40: SCOPE 

;;SET TEST NUMBER IN APT MAIL BOX 
;SET PSU TO PRIORITY 7 



MOV 
JSR 



172764 
173000 



1$: 



2$: 



3$: 



4$: 
5$: 



MOV 

MOV 

CLR 

TSTB 

BPL 

BIS 

NOP 

BR 

CMP 

ERROR 



BIC 
MOV 
JSR 

NOP 
BR 

CMP 
ERROR 

MOV 



*40,$TESTN 
PCURPSU 
.WORD 340 
aRVECT,R3 
#2$.aRVECT 
aTBUP 
aRCSR 
1$ 

#81 T6, aRCSR 
3$ 

(SP)*.(SP)+ 
127 



#BIT6. aRCSR 
#4$.aRVECT 
PCWRPSW 
.WORD 140 

5$ 

(SP)*,(SP)* 
130 

R3,aRVECT 



.•SAVE RECEIVE VECTOR 

.•POINT RCVR VECTOR TO ERROR REPORT 

;SEND A CHARACTER 

;UAIT FOR RECEIVER DONE 

.•ENABLE INTERRUPTS 

;6IVE TIME FOR INTERRUPT 

.CONTINUE TEST 

.•RESTORE SP AFTER INTERRUPT 

;RCVR INTERRUPTS AT PRIORITY 7 

.•CLEAR INTERRUPT ENABLE 

.•POr'T RCVR VECTOR TO ERROR REPORT 

;SET PSU TO PRIORITY 3 

;6IVE TIME FOR ANY INTERRUPT 

;BR TO END OF TEST. IF NO INTERRUPT 

; RESTORE SP AFTER INTERRUPT 

;RCVR INTERRUPT REQUEST PASSED WITH BIT6 CLCAR 
.•RESTORE RECEIVE VECIOR 
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T41 TEST SLU2 RECEIVER FOR DOUBLE INTERRUPTS 



SEO 0052 



(3^ 
(3) 
(2) 
(2) 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
(3) 
(3) 
(2) 
(2) 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 



010014 
010016 
010024 
010030 
010034 
010042 
010050 
010054 
010056 
010062 
010066 
010070 
010076 



000004 
012737 
017703 
01 7704 
0M777 
012777 
004737 
000140 
005077 
105777 
100375 
052777 
000240 



010100 104131 



010102 
010104 
010112 
010116 
010120 
010122 
010130 
010134 

010136 
010140 



022626 
012777 
004737 
000140 
000240 
0^^2777 
010477 
000402 

022626 
104132 



010146 
010150 
010156 
010162 
010164 
010170 
010176 
010204 
010210 
010214 
010216 
010222 
010226 
010230 
010232 
010240 

010242 
010244 



000004 
012737 
004737 
000340 
017703 
012777 
052777 
005077 
105777 
100375 
005777 
004737 
000140 
000240 
042777 
000402 

022626 
104133 



010136 
012356 



000100 
1 72640 



010142 010377 172624 



;*TEST 41 



TEST SLU2 RECEIVER FOR DOteiE INTERRUPTS 



000O41 001104 

172742 

172740 

010102 172730 
000340 172724 
012356 

172674 
172662 

000100 172652 



TST41 : SCOPE 

nov 

HOV 
MOV 
MOV 
MOV 

JSR 



IS: 



CLR 

TSTB 

BPL 

BIS 

NOP 



#41.$TESTN 
aRVECT.R3 
aRPSU,R4 
*2$.8RVECT 

/r34u,aRPSu 

PCWRPSW 

.WORD 140 

8T8UF 

aRCSR 

1$ 

#61 T6, aRCSR 



ERROR 131 



172660 
172620 



2$: 



3S: 
4$: 



CMP 

MOV 

JSR 

.WORD 

NOP 

BIC 

MOV 

BR 

CMP 
ERROR 

MOV 



#3$,aRVECT 
PCWRPSW 

140 

«BIT6, aRCSR 

R4,aRPSW 

4$ 

132 

R3,aRVECT 



;;SET TEST NUMBER IN APT MAIL BOX 

.•SAVE RECEIVE VECTOR 

.-SAVE RECEIVE PSW VECTOR 

.-POINT RCV VECTOR TO CONTINUE TEST 

;SET PRIORITY TO 7 AFTER INTERRUPT 

.-SET PSW TO PRIORITY 3 

;SEND A CHARACTER 
.-WAIT FOR RCVR DONE 

.-ENABLE RCV INTERRUPTS 
;6IVE SOME TIME 



:RCVR INTERRUPT DID NOT OCCUR 

.-RESTORE SP AFTER INTERRUPT 
.•POINT RCV VECTOR TO ERROR REPORT 
.•RESET PSW TO PRIORITY 3 

;6IVE SOME TIME 
.•CLEAR INTERRUPT ENABLE 
.-RESTORE RECEIVE PSW VECTOR 
;BR TO END OF TtST 

.•RESTORE SP AFTER INTERRUPT 

.•RECEIVER RE-INTERRUPTED 
.•RESTORE RECEIVE VECTOR 



001104 



172574 
172544 



000042 
012356 

172602 
010242 
000100 
172546 
172534 

172530 
012356 



000100 172510 



;*TEST 42 TEST THAT RCVR 

• • A*************************** 

tST42: SCOPE 



IS: 



2S: 



MOV 


#42,STESTN 


JSR 


PCWRPSW 




.WORD 340 


MOV 


aRVECT.R3 


MOV 


*2$.aRVECT 


BIS 


#BIT6, aRCSR 


CLR 


aTBUF 


TSTB 


aRCSR 


BPL 


1S 


TST 


aRBUF 


JSR 


PCWRPSW 




.WORD 140 


NOP 




BIC 


fBIT6. aRCSR 


BR 


3S 


CMP 


(SP)+.(SP)+ 


ERROR 


133 



INTERRUPT CLEARS BY READING R8UF 
*********************************** 

;;SET TEST NUMBER IN APT MAIL BOX 
;SET PSW PRIORITY TO 7 

.-SAVE RECEIVE VECTOR 
.-POINT RCV VECTOR TO ERROR REPORT 
.-SET RCVR INTERRUPT ENABLE 
.-SEND A CHARACTER 
:WAIT FOR DONE (INTERRUPT) 

.-READ R8UF TO CLEAR PENDING INTERRPUT 
;SET PSW TO PRIORITY 3 

;AL10W TIME FOR ANY ERRONEOUS INTERRUPT 
;N0 INTERRUPT-CLEAR INT. ENABLE 



.-RESTORE S" AFTER INTERRUPT 

.•READING R6UF DID NOT CLEAR INTERRUPT 
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C I J J 
C 1 J** 












010X77 


1 7P5P0 




C 1 ? J 




















31 «;7 










c 1 3o 










\jl 










V J V 










f 31 


nin3SP 


000004 






( 3 ) 




01 P7X7 
V 1 c ' J ' 


00004 X 

VVVV** J 


001 104 


31 SO 


U 1 Ucuc 


0XP7X7 

V^C f Jf 


000001 

VVVVV 1 


001 120 

wv 1 lev 


< 1 ) 


01 nP7n 

V 1 vc ' V 


001 40X 

vv 1 Mv J 






( 1 5 


ni037P 

V 1 UC ' C 


0057X7 


001 106 

vv 1 1 vU 




t 3 ) 


ni n37A 

U 1 Uc ' o 


0010X7 






( 1 ) 


ninxnn 

U 1 \JD\J\J 








31 Afl 


V 1 V JVV 


000005 

V vvvv-/ 






£ 1 O 1 


V 1 V JVC 


004737 


012556 




C I uc 


010506 

V 1 yjjvsj 


000X40 

WVV J** w 






31 AX 


010X10 


01 770^ 


172456 




?1^ii 


W 1 V J 1 


01P777 


010X66 

V 1 V JUw 


172450 


C 1 U J 


0105PP 


05P777 


000100 

WW 1 w 


172420 


31 


V 1 V J Jv 


01P777 


000577 


172420 




nioxx6 

V 1 V JJ\J 


105777 
100375 


172406 






W I v J"*c 






?169 


010544 


000005 

WWW-/ 






PI 70 


010546 


0047X7 


012556 




?1 71 

C 1 r 1 


01055? 


000140 






?172 


010554 


000240 








010X56 


042777 


000100 


1 72364 




010X64 


000402 






P175 










?1 76 










?177 


010X66 


022626 








010570 


1 04 1 34 
















PI 80 


010X7? 


010577 


1 72374 




P18'' 


















































(?) 


010576 


000004 






fp) 


010400 

W t V/"t wW 


012757 


000044 


001104 

VV < 1 v~ 




010406 


052777 

fit 


002000 

Wfc W V 


170424 


P185 


010414 


001025 






PI 86 


010416 


012700 


000005 

w w w^ 




P187 


0104?? 


005077 


1 72330 




P188 

C 1 WW 


0104?6 


105777 








010452 


100575 






2190 


0104 3A 


005300 






2191 


010436 


001371 






2192 


010440 


032777 


040000 


1 72304 


2195 


010446 


001001 






219A 


010450 


104135 






2195 










2196 
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T42 TEST THAT RCVR INTERRUPT CLEARS BY READING R8UF 



SEQ 0053 



3S: 



nov 



(i3,aRVECT 



.•RESTORE RECEIVE VECTOR 



• ************* 

West 43 

• ************* 

tST43: SCOPE 
MOV 
BIT 
BEQ 
TST 
BNE 



*******************************'******************• 

TEST SLU2 THAT RESET CLEARS RECEIVE INTERRUPT 
************************************************** 



70$: 



1S: 



2S: 
3S: 



RESET 
JSR 

MOV 
MOV 
BIS 
MOV 

TST8 
BPL 
RESET 
JSR 

NOP 
BIC 
BR 



CMP 
ERROR 

MOV 



#43.$TESTN 

0^. a#SENv 

70$ 

a«$pASS 

TST44 



PCURPSW 

.WORD 340 

afiVECT,R3 

«2$,aRVECT 

«BIT6,aRCSR 

*377,aTBUF 

aRCSR 

1$ 

PC.URPSW 
.WORD 140 

#BIT6, aRCSR 
3$ 



(SP)+.(SP)+ 
134 

R3.aRVECT 



;;SET TEST NUMBER IN APT MAIL BOX 

;ARE WE RUNNING 'JNDER APT 

;IF NO THEN DO TES^ 

;IS THIS FIRST PASS 

;IF NO THEN SKIP TO NEXT TEST 

.•CLEAR EVERYTHING 
;SET PSW TO PRIORITY 7 

;SAVE RECEIVE VECTOR 
.•POINT RCV VECTOR TO ERROR REPORT 
:SET RCV INTERRUPT ENABLE 
.SEND AN ALL I'S CHARACTER 
.-WAIT FOR RCV DONE 

.•CLEAR RCV INTERRUPT & R8UF 
;SET PSW TO PRIORITY 3 

.ALLOW TIME FOR AN ERRONEOUS INTERRUPT 
;N0 INTERRUPT-CLEAR INT. ENABLE 
.•CONTINUE TEST 



.•RESTORE SP AFTER INTERRUPT 

.•RESET DID NOT CLEAR RCVR INTERRUPT 

.RESTORE RECEIVE VECTOR 



**************************************************************** 

♦ TEST 44 TEST SLU2 THAT 'lOVERRUN i ERROR" BITS CAN BE SET 

•***••♦*«*•*«♦**•******♦»•*•****♦»•••*******••••***♦♦•*******•** 

fST44: SCOPE 

;;SET TEST NUMBER IN APT MAIL BOX 
;IS THIS TEST DISABLED 
;IF NOT ENABLED, BR TO NEXT TEST 
;SET CHARACTER COUNT TO SEND 3 CHAR. 
.LOAD TRANSMIT BUFFfcR 
.-WAIT FOR TRANSMIT DONE 



1$: 
2$: 



MOV 
BIT 
BNE 
MOV 
CLR 
TSTB 
BPL 
DEC 
BNE 
BIT 
BNE 
ERROR 



#44.$TESTN 
#BIT10.aSWR 

TST45 
#3.R0 
aTBUF 
aTCSR 
2$ 
RO 
1$ 

#6IT14,aRBUF 
3$ 

135 



.•DECREMENT CHARACTER COUNT 

;BR IF ALL CHARACTERS NOT TRANSMITTED 

.TEST FOR "OR" ERROR FLAG 

;BR. IF SET 

;"0R" ERROR FLAG DID NO' SET 
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T44 TEST SLU2 THAT '10VERRUN t ERROR" BITS CAN 3E SET 



SEQ 0054 



2197 


010452 


012777 


100000 


172272 


2198 


010460 


001001 






2199 


010462 


104136 






2200 










2201 


010464 








2202 










220? 










220s 










(3) 
(3) 










(2) 


010^64 


000004 






(2) 


010466 


012737 


000045 


00''104 


2205 


010474 


012777 


177777 


172254 


2206 


010502 


105777 


1 722U2 




2207 


010506 


100575 






2208 


010510 


005777 


172236 




2209 


010514 


0S2777 


000001 


172212 


2210 


010522 


005000 






2211 


010524 


105777 


172220 




2212 


010530 


100406 






2213 


010532 


005200 






22U 


010534 


001373 






2215 










2216 


010536 


0^2777 


000001 


172210 


2217 


010544 


104137 






2218 










2219 


010546 


105777 


1 72200 




2220 


010552 


001404 






2221 


010554 


0^*2777 


000001 


172172 


2222 










2223 


010562 


104137 






2224 
2225 


010564 


0427"'7 


000001 


172162 


2226 










2227 










222(i 










(3) 










(5) 










(2) 


010572 


000004 






(2) 


010574 


012737 


000046 


001104 


2229 


010602 


012777 


002000 


1 70230 


2230 


010610 


001025 






2231 


010612 


052777 


000001 


172134 


2232 


010620 


005077 


172132 




2233 


010624 


105777 


172120 




2234 


010630 


100375 






2235 


010632 


0i*2777 


000001 


172114 


2236 


010640 


012777 


020000 


172104 


2237 


010646 


001001 






2238 










2239 


010650 


104140 






2240 










2241 


010652 


012777 


100000 


172072 


2242 


010660 


001001 






2243 










2244 


010662 


104141 







BIT «BIT15,aRBUF 
BNE 4S 
ERROR 136 



4$: 



.TEST "tRROR" FLAG 
;BR. IF SET 

.-"ERROR" FLAG DID NOT SET yiTH "TDR" FLAG 



'*TEST 45 TEST THAT BREAK TRANSMITS ALL ZEROES 



TST45: SCOPE 
MOV 
MOV 

1$: TST8 
BPL 
TST 
BIS 
CLR 

2$: TST8 
BMI 
INC 
BNE 

BIC 
ERROR 

C0NT41: TST8 
BEQ 
BIC 

ERROR 

3$: BIC 



#45.$TESTN 
/r-l.aTBUF 
aRCSR 
1$ 

ansuF 

*8IT0,aTCSR 
RO 

aRCSR 
C0NT41 
RO 
2$ 

#BITO.aTCSR 
137 

aRBUF 
3$ 

*8IT0,aTCSR 
137 

«6IT0,aTCSR 



;SET TEST NUMBER IN APT MAIL BOX 
TRANSMIT ALL ONES TO RCVR 
WAIT FOR RCVR DONE 

CLEAR DONE (LEAVING ALL ONES IN RBUF) 
TRANSMIT BREAK 
CLEAR A TIMER 
WAIT FOR RCVR DONE 
8R IF DONE 

IF NOT, INCREMENT TIMER 
BR IF TIME REMAINS 

.■CLEAR BREAK BITS 
.■BREAK DID NOT TRANSMIT ANYTHING 

.CHECK RECEIVE BUFFER FOR ZERO 
;8R. IF ZERO 

.•CLEAR BREAK BITS 

.-BREAK DID NOT TRANSMIT ALL ZEROES 

.■CLEAR BREAK BITS 



•TEST 46 TEST THAT "FR" ERROR CAN BE SET DURING BREAK 

**************************************************************** 

TST46: SCOPE 



1$: 



2$: 



MOV #46.$TESTN 

BIT #SIT10.aSUR 

BNE TST47 

BIS #8IT0,aTCSR 

CLR aTBUF 

TST8 aRCSR 

BPL 1$ 

BIC *8IT0.aTCSR 

BIT «6IT13.aRBUF 

BNE 2$ 

ERROR 140 

BIT «BIT15. aRBUF 

BNE 3$ 

ERROR 141 



.-SET TEST NUMBER IN APT MAIL BOX 
IS THIS TEST DISABLED 
BR TO NEXT TEST, IF DISABLED 
SEND BREAK 

TRANSMIT A CHARACTER TO TIME BREAK 
WAIT FOR RCVR DONE 

.•CLEAR BREAK BITS 
.•CHECK FOR FRAMING ERROR FLAG 
.•BR, IF SET 



BREAK DID NOT SET FRAMING ERROR 
TEST "ERROR"FLAG 
BR, IF SET 
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T46 TEST THAT 'TR" ERROR CAN BE SET DURING BREAK 



SEQ 0055 























77L7 










f ^) 










'3) 










f 




000004 






f 




012737 


000047 

vvvv*t ' 


001 104 

W • ' v~ 


cc*»o 




CS\7777 

vjC f I I 


vvvC vv 


170136 

1 > V 1 ^U 




(110702 

U 1 Vf vC 


001027 

V V I VC ' 








010704 


005001 






CCj ' 










CCjC 










??53 












01070ft 


105201 

1 vJCV 1 






CC J J 


010710 


010177 


172042 






010714 


005000 

VV V w 






C C ' 


010716 


105777 


172026 

■ ■ Vb w 




CC 


010722 

V 1 V' CC 


100403 






CCJ~ 


010724 

V 1 Vr C" 


005200 

Vv </C W 






CCUV 


010726 

V 1 v' C\J 


001373 






ecu 1 










ccuc 


010730 


104056 

1 v~v w 






C Cw J 










CC 


010732 

V I V ' -JC 


017702 

VI'' VC 


1 72014 




2265 

C C w ^ 


010736 


020102 






2266 

C C Ww 


010740 


001003 






2267 

CCw r 


010742 


105701 






2268 

c c w 


010744 


001406 






2269 

CCvJ 7 


010746 


000757 






2270 

C C • V 


010750 


010137 


001024 




2271 

CC r 1 


010754 


010237 


001026 




2272 










2273 


010760 

V 1 V ' w 


104142 






2274 

CC ' 










2275 

cC r ^ 










CC 1 U 


010762 

V ■ \# r UC 








2277 

CC f f 










2278 










(3) 










(3) 










(2) 

\ C / 


010762 

V 1 V f \JC 


000004 

V V V V v^ 






(7) 

V c / 


010764 

V 1 V ' v^ 


012737 

V I C ' ' 


000050 

V V V V ^ V 


0011 04 


2279 

CC f ' 


010772 

U 1 V f r C 


\J JC 1 -J 1 


000004 

V W V V ~ 


001156 




01 1000 

V 1 1 vvv 


001002 

VV 1 vvc 






M ) 


01 1002 

V 1 ' vvc 


000137 

VVV < — ' ' 


01 1474 




n ) 


01 1006 

V 1 I Ww 








2280 


011006 


005000 






2281 


011010 


004737 


012356 




22R2 

ccoc 


01 1014 


000340 






2283 


011016 


017703 


171770 




2284 


011022 


01 7704 


171766 




2285 


011026 


012777 


011060 


171756 


2286 


011034 


012777 


000340 


171752 


2287 
2288 


011042 


052777 


000100 


171720 


2289 


011050 


005200 







3S: 



.••tRROR" FLAG DID NOT SET WITH 'TOR" FLAG 



*************************************************************** 

•TEST 47 TEST DATA PATHS USING WRAP CABLE 



TST47: 



1$: 
2$: 



SCOPE 

MOV 

BIT 

BNE 

CLR 



INC8 

MOV 

CLR 

TSTB 

BMI 

INC 

BNE 



#47.JT£STN 
#BIT7,aSUR 

TST50 
R1 



R1 

Ri.areuF 

RO 

SRCSR 
3S 
RO 
2S 



ERROR 56 



3$: 



4S: 



MOV 

CMP 

BNE 

TSTB 

BEO 

BR 

MOV 

MOV 



SR8UF,R2 

R1.R2 

4$ 

Rl 

TST50 
1$ 

R1,$GD0AT 
R2,SBDDAT 



ERROR 142 



;;SET TEST NUMBER IN APT HAIL BOX 
;IS THIS TEST ENABLED 
*BR IF NOT 

•CLEAR REGISTER FOR TEST DATA 

.•TRANSMIT A BINARY COUNT PATTERN - UP 

;T0 THE BIT POSITION INDICATED BY THE 

.•CONTENTS OF LOCATION "tUSWR" 

.•INCREMENT THE TEST DATA 

;XMIT A CHARACTER 

.•CLEAR A TIMER 

;UAIT FOR RECEIVER DONE 

;BR IF DONE 

.•INCREMENT TIMER IF NOT 
:BR IF TIME REMAINS 

.•RECEIVER DONE NOT SET 

..•GET RECEIVED CHARACTER 
.•COMPARE DATA 
;8R, IF NON-COMPARE 
;TEST XMIT DATA FOR ZERO 
;BR. IF FINISHED 
.•CONTINUE IF NOT 
.•STORE EXPECTED DATA 
.•STORE RECEIVED DATA 

.•DATA COMPARE ERROR UITH WRAP CABLE 



LTCIT; 

• **************** ********************* *************************** 

50 TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 



.••TEST 
■ • ***** 

TST50: 



99$: 



1$: 



*«********************i 

SCOPE 

MOV #50.$TESTN 

BIT #BIT2,a#$DEVM 

BNE 99$ 

JMP BLAST 

CLR RO 

JSR PCURPSU 

.WORD 340 

MOV aRTCVT,R3 

MOV aRTCPSU,R4 

MOV #2$.aRTCVT 

MOV #340,aRTCPSU 

BIS #BIT6.aLKS 

INC RO 



.-.-SET TEST NUMBER IN APT MAIL BOX 

;D0 THESE TESTS FOR THIS DEVICE? 

;F YES CONTINUE WITH TESTS 

.•IF NO GO TO START OF NEXT SET OF TESTS. 



;SET PSW TO PRIORITY 7 

.-SAVE LINE CLOCK VECTOR 

;SAV£ LINE CLOCK PSU VECTOR 

;SET RTC INTERRUPT VECTOR TO ERROR REPORT 

;KEEP PRIORITY AT 7 



;SET INTERRUPT ENABLE 
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■5 '5 OA 


rti 1 r>c5 


AA1 77A 

00 1 3 r 0 








Ai 1 AC/ 


AAA5/. A 

OOOchO 








Ail AC^ 
01 105O 


f\r\f\/ A5 
000*»0£ 






2293 












A1 1 t\t^t\ 

01 1 OoU 


A55i^5A 

OccOcO 








All 

01 lOoc 


1 ni. 1 /. 7 






2296 






1 71 7on 






Ai 1 A^/ 

01 1 Oos 


AAC A77 
0050' f 






A1 1 A7A 

01 lOrO 


AA5AAA 
00)000 




1 71 71 5 

\ f \ 1 \ c 


C^9V 


A1 1 A75 
0110ft 


A1 5777 


AI 1 1 1 0 




AI 1 1 A A 

01 MOO 


AAA777 
OOh' J I 


01 57*»A 
0 1 c j50 




<:3U 1 


A1 1 1 A/. 
01 1 10*1 


AAA5AA 
OOOchU 








A1 1 1 t\L. 
01 M 00 


1 A/. 1 A A 
1 0«» 1 hO 




If 1 U» H 




AI 1 1 1 A 


01 5777 


01 1 1 7£ 
U 1 1 1 JH 




AI 1 1 1 A 
0 1 M 10 


10A£57 


0005^0 






AI 1 1 55 

01 llcc 


00«;500 






<: jUo 


A1 1 1 5Z. 


00<I700 








AI 1 1 5A 
0 M 1 cO 


10077f 








A1 1 1 7A 

0 1 1 1 jO 


AAA5Z A 
OOOchU 








AI 1 1 75 

\) \ \ \JC 


AAA/. A 5 






571 fl 










0711 


A1 1 1 7Z. 
U 1 1 1 jH 


055A5A 






5715 


A 1 1 1 7A 


1 A/1// 
1 \JH 1 






5'»1 7 








171644 


571Z. 


A1 1 1 LC\ 


01 5777 


01 1 1 70 


571 K 


AI 1 1 Z.A 
U 1 M hO 


OO'JOOO 




171^^1? 
1 ' 1 0 I c 


571 A 


A1 1 1 «;n 


0SP777 


000100 


571 7 


ni 1 1 «;a 

U 1 1 1 50 


oospon 






571 B 

col 0 


AI 1 1 AA 
0 1 M OU 


AA^700 
UU5 f UU 






571 0 


AI 1 1 A5 
0 1 1 lOc 


10077«; 






575n 


A1 1 1 A/. 
0 M 1 Oh 


0005Z.0 






5751 










5755 


0111 
U 1 1 1 00 








5757 










575^ 
CjC* 


ni 1 1 7fi 


n?5^?^ 






37?*; 

CJC J 


ni 11 7P 


0LP777 


AAA 100 


171570 


575A 
CJcO 


Ai 1 5nn 


010777 

U 1 vJ ' ' 


1 71 AOA 




5757 
CJCf 


All 5AZ. 




1 71 AO^ 




575B 
CJCO 










575Q 

cjcy 










577r> 










5771 










^ 7^ 

\Jl 










^7^ 










/ 5 ^ 


AI 1 51 A 
01 1 c 1 w 










AI 1 51 5 

01 \C\C 


01 5777 


0000S1 


001 104 


5775 

CJJC 


AI 1 55n 
0 1 1 cc\} 


075777 
Vjci ji 


000001 


001 1?0 


K 1 ) 


AI 1 55A 
0 1 1 ££0 


001 A07 






I'W 

( 1 ; 


AI 1 57n 

0 1 1 CjM 


00«;777 
UUj f jI 


001 10A 
Uv 1 1 UO 




(2) 


01123A 


001050 






(1) 


011236 








2333 


011236 


017703 


171550 




233A 


0112A2 


017704 


171546 




233!) 


0112A6 


012777 


011312 


171536 


2336 


01125A 


012777 


000340 


171532 


2337 


011262 


004737 


012356 
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T50 TEST THAT THE REAL TIHE CLOCK INTERRUPTS PROPERLY 



.•GIVE TIME FOR ANY INTERRUPTS 
;8R. IF NO INTERRUPT OCCURS 



SEO 0056 





BNE 


1$ 




NOP 






on 


71 


5t • 






FRROR 


143 


J* • 


ri R 








RO 




MOV 


JirXXX SRTCVT 






PC URPSU 






UORD 240 




FRROR 


146 


XXX: 


MOV 


*4$.aRTCVT 




MTPS 


#240 




INC 

ins. 


RC 




TST 


RO 




BPL 


20$ 




NOP 






BR 


5S 


4S- 


CMP 


(SP)+. (SP)* 




FRROR 


144 


5$: 


MOV 


#7$,aRTCVT 




CLR 


RO 




BIS 


*P'T6.aLKS 


6$: 


INC 


RO 




TST 


RO 




BPL 


6S 




NOP 






ERROR 


145 


7$: 


CMP 


(SP)+,(SP)+ 




BIC 


*8IT6,aLKS 




MOV 


R3.aRTCVT 




MOV 


R4,aRTCPSU 



.-RESTORE SP AFTER INTERRUPT 
;RTC INTERRUPTS AT PRIORITY 7 



.•DISABLE RTC INTERRUPTS 



;SET RTC INTERRUPT VECTOR FOR ERROR 
.•CHANGE PSU TO PRIORITY 5 



**************************** 

'•TEST 51 TEST RTC FOR 

TST51: SCOPE 

MOV #51,$TESTN 

BIT #1. amNv 

BEO 70$ 

TST a#$PASS 

BNE TST52 

MOV aRTCVT,R3 

MOV aRTCPSW,R4 

MOV #2$-aRTCVT 

MOV *340.aRTCPSW 

JSR PC.WRPSU 



.•GIVE TIME FOR ANY INTERRUPT 

;IF NO INTERRUPT - BR TO CONTINUE TEST 

.•RESTORE SP AFTER INTERRUPT 

;RTC INTERRUPTS WITH INTERRUPTS DISABLED 

.-P'^INT RTC VECTOR TO END OF TEST 

.•ALLOW INTERRUPTS 



.•GIVE TIME FOR INTERRUPT 

.•RTC INTERRUPT DID NOT OCCUR 

RESTORE SP AFTER INTERRUPT 
DISABLE INTERRUPTS 
RESTORE LINE CLOCK VECTOR 
RESTORE LINE CLOCK PSU VECTOR 



************************************ 

DOUBLE INTERRUPTS 

************************************ 



70S: 



.-SET TEST NUMBER IN APT MAIL BOX 

ARE UE RUNNING UNDER APT 

IF NO THEN DO TEST 

IS THIS FIRST PASS 

IF NO THEN SKIP TO NEXT TEST 

SAVE LINE CLOCK VECTOR 

SAVE LINE CLOCK PSW VECTOR 

SET UP RTC INTERRUPT VECTOR 

DISALLOW INTERRUPTS AF^ER THE INTERRUPT 

SE( PRIORITY TO 5 
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DI#UC X24. 07-563 02-FEB-82 
rSI TEST RTC FOR DOUBLE 



F 5 

16:42 PAGE 10-11 
INTERRUPTS 



SEO 0057 



2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2550 
2551 
2552 
2553 
2554 
2555 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2565 
(3) 
(3) 
(2) 
(2) 
2366 
(1) 
(1) 
(2) 
(1) 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2584 
2585 



011266 000240 



011270 
011272 
011500 
011502 
01 1 504 
01 1 506 



011512 
011314 
011322 
011326 
011350 
011552 

011354 
011536 



011540 
011546 
01155? 



011556 
011360 
011366 
011374 
011376 
01K02 
011404 
011404 
011410 
011412 
011416 

011424 
011426 
011434 
011436 
011440 
011442 
011444 
011450 
011452 
011454 
011462 

011464 
011466 



005000 
052777 
005200 
005700 
100375 
000240 



011310 104146 



022626 
012777 
004737 
000240 
000240 
000402 

022626 
104147 



01*2777 
010377 
010477 



000004 
012737 
032737 
001403 
005737 
001034 

004737 
000340 
017703 
0y2777 

005000 
052777 
005200 
005700 
100375 
000005 
004737 
000240 
000240 
0i,2777 
000402 

022626 
104150 



000100 171470 



IS: 



CLR 
BIS 
INC 
TST 
BPL 
NOP 



.WORD 240 

RO 

«eiT6,aLics 

RO 
RO 

1$ 



ERROR 146 



011354 
012356 



171470 



2S: 



000100 
171440 
171436 



3S: 



171422 4$: 



CMP 
MOV 
JSR 

NOP 
BR 

CMP 
ERROR 



BIC 
MOV 
MOV 



(SP)*.(SP)* 
#3S.aRTCVT 
PC.URPSU 
.WORD 240 

4$ 

{SP)*.(SP)* 
147 



«BIT6,aLKS 

R3.aRTCVT 

R4,aRTCPSU 



.•ENABLE CLOCK INTERRUPTS 

GIVE TIME FOR ANY INTERRUPT 

RTC INTERRUPT DID NOT OCCUR 

RESTORE SP AFTER INTERRUPT 
POINT RTC VECTOR TO ERROR REPORT 
SET PSU TO PRIORITY 5 

GIVE SOME TIME FOR AN INTERRUPT 
NO INTERRUPT - BR TO END OF TEST 



RESTORE SP AFTER INTERRUPT 
INTERRUPT SEQUENCE DID NOT CLEAR 
INTERRUPT REQUEST 

DISABLE CLOCK INTERRUPTS 
RESTORE LINE CLOCK VECTOR 
RESTORE LINE CLOCK PSU VECTOR 



***************************************************************** 

'•West 52 test that rtc interrupt clears with reset 







TST52: SCOPE 


000052 


001104 




MOV 


#52,$TESTN 


000001 


001120 




BIT 


#1, a#seNv 








BEQ 


70$ 


001106 






TST 


a«$PAss 








bne 


TST53 






70$: 






012356 






JSR 


PCWRPSW 










.WORD 340 


171374 






MOV 


aRTCVT,R3 


011464 


171366 




MOV 


#2$,aRTCVT 








CLR 


RO 


000100 


171334 




BIS 


#Bir6,aLKS 






IS: 


INC 


RO 








TST 


RO 








BPL 


1$ 








RESET 




012356 






JSR 


PC, URPSU 










.WORD 240 








NOP 




000100 


171306 




BIC 


#BIT6,aLKS 








BR 


3$ 






2S: 


CMP 


(SP)*,(SP)* 








ERROR 


150 



;;SET TEST NUMBER IN APT MAIL BOX 

:ARE UE RUNNING UNDER APT 

;IF NO THEN DO TEST 

;IS THIS FIRST PASS 

;IF NO THEN SKIP TO NEXT TEST 

;SET PRIORITY TO 7 

.-SAVE LINE CLOCK VECTOR 

.-POINT RTC VECTOR TO ERROR REPORT 



.•ENABLE LLOCK INTERRUPTS 



.CLEAR PENDING INTERRUPT WITH RESET 
.-SET PRIORITY TO 5 

;GIVE TIME FOR ANY INTERRUPT 
; DISALLOW INTERRUPTS 
;BR TO END OF TEST 

.•RESTORE SP AFTER INTERRUPT 
;RESFT DID NOT CLEAR INTERRUPT 
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T52 TEST THAT RTC INTERRUPT CLEARS WITH RESET 



2386 
2387 
2388 
2389 
2390 
2391 
(3) 
(3) 
(2) 
(2) 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 



011470 
011474 



011474 
011476 
011504 
011512 
011514 
011520 
011522 
011526 
011530 
011536 
011544 
011552 
011560 
011566 
011574 
011600 
011604 

011610 
011616 
011624 
011632 
011640 
011646 

011654 
011662 
011670 

011674 
011702 
01 1 706 
011712 
011714 

011716 
011722 



011726 
011732 
011734 
011^40 
011746 
011750 
011756 



010377 171316 



000004 
012737 
032737 
001405 
005737 
001402 
000137 
000005 
012737 
017737 
017737 
017737 
017737 
017737 
005037 
005037 
005037 

012777 
012777 
012777 
012777 
012777 
012777 

052777 
052777 
012703 

052777 
012701 
005037 
000001 
000776 

005237 
000137 



005237 
005201 
010177 
025727 
002403 
0(»2777 
000137 



000053 
000001 

001106 

012240 

000340 
171234 
1 71 222 
171230 
171216 
171220 
012232 
012234 
012236 

011726 
000340 
011762 
000340 
011716 
000340 

000100 
000100 
026320 

000100 
^77777 
}77776 



012236 
012036 



012232 

171016 
012232 

000100 
012036 



001104 
001120 



177776 
001060 
001062 
001064 
001066 
001070 



171160 
171154 
171140 
171134 
171144 
171140 

171072 
171060 



171066 



000400 
170776 



3$: 

BLAST : 



nov 



R3.aRTCVT 



.-RESTORE LINE CLOCK VECTOR 



'•TEST 53 TEST ALL INTERNAL OPTIONS SIMULTANEOUSLY 

•*************************************************************** 

tST53: SCOPE 



70$: 



3S: 



011762 005237 012234 



XMJT2: 



1$: 

REC2: 



MOV 


#53.$TESTN ; 


.-SET TEST NUMBER IN APT HAIL BOX 


BIT 


JTRTtO a#tENV 


ARE UE RUNNING UNDER APT 


BEO 


70$ ; 


IF NO DO TEST 


TST 


a#$PASs 


IS THIS FIRST PASS 


BEQ 


70$ 


IF YES DO TEST 


JMP 


$E0P 


JF NO DO NOT DO TEST 


RESET 




CLEAR EVERY BODY 


MOV 


#340, PS '. 


SET PROCESSOR PRIORITY TO 7 


MOV 


aTVECT.$THPO 




MOV 


aRVECT.$THP1 




MOV 


aCTVECT.$TMP2 




MOV 


aCRVECT,$TMP3 




MOV 


aRTCVT<iTMP4 




CLR 


XMTCT2 




CLR 


RECCT2 




CLR 


COUNT 




MOV 


fXMIT2, aTVECT 


;SET UP SLU2 TRANSMIT VECTOR 


MOV 


#340. aTPSU 


;AND PSU 


MOV 


#REC^. aRVECT 


;SET UP SLU2 RECEIVER VECTOR 


MOV 


#340. aRPSU 


;AND PSU 


now 


#TJCKER, aRTCVT 


;SET UP RTC VECTOR 


MOV 


#340. aRTCPSU 


;AND PSU 


BIS 


#eiT6. aTCSR 


; ENABLE SLU2 XMIT INTERRUPT 


BIS 


#6IT6. aRCSR 


;ENABLE SLU2 RECEIVER INTERRUPT 


MOV 


#8UF2. R3 


,-SET UP RECEIVER BUFFER 


BIS 


#BIT6, aLKS 


;ENA8LE RTC INTERRUPTS 


MOV 


#-1, R1 


;INITIALJZE DATA FOR SLU2(1ST CHR 


CLR 


PS 


;DROP PROCESSOR PRIORITY TO ZERO 


WAIT 




;UAIT FOR INTERRUPT 


BR 


WAITIO 




INC 


COUNT .-UPDATE COUNT 


JMP 


lOHAND ;G0 TO INTERRUPT HANDLER 



INC XMTCT2 

INC R1 

MOV R1. aTBUF 

CMP XMTCT2. #400 

BLT 1$ 

BIC #BIT6, aTCSR 

JMP lOHAND 

INC RECCT2 



UPDATE XMIT INTERRUPT COUNT 

UPDATE XMIT DATA 

SEND NEXT CHARACTER 

IF 256 CHARACTERS HAVE NOT 

BEEN TRANSFERRED CONTINUE 

ELSE NO MORE XMIT INTERRUPTS 

GO TO INTERRUPT HANDLER 

UPDATE RECEIVER INTERRUPT COUNT 
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SEO 0059 



2438 


01 1 766 


005777 


170760 






TST 


iRBUF 


2439 


011772 


100017 








BPL 


3$ 


2440 


011774 


017737 


170752 


001026 




MOV 


aRBUF, SBDDAT 


2441 


012002 


000005 








RESET 




2442 














R3. #BUF2 


2443 


012004 


020327 


026320 






CMP 


2444 


012010 


003004 








BGT 


1$ 


2445 


012012 


012737 


^77777 


00102' 




MOV 


#-1, SGDDAT 


2446 


012020 


000403 








BR 


2$ 


2447 


012022 


116337 


}77777 


001024 


1$: 


MOVB 


-1(R3), SGDDAT 


2448 


012030 


104154 






2$: 


ERROR 


154 


2449 


012032 


117723 


170714 




3$: 


MOVB 


aRBUF, (R3)^ 


2450 














COUNT, #74 


2451 


012036 


023727 


012236 


000074 


IOHmND: 


CMP 


2452 


012044 


002412 








BLT 


3S 


2453 


012046 


0U2777 


000100 


170710 




BIC 


*BIT6, aCTCSR 


2454 


012054 


0^2777 


000100 


170672 




BIG 


*BIT6. aTCSR 


2455 


012062 


0^,2777 


000100 


170700 




BIC 


#61 T6, aLKS 


2456 


012070 


000401 








BR 


WAITER 


2457 


012072 


000002 






3$: 


RTI 




2458 
















2459 


012074 


005037 


^77776 




WAITER: 


CLR 


PS 


2460 


012100 


012705 


140000 






MOV 


#-40000, R5 


2461 


012104 


062705 


000001 




1$: 


ADD 


#1. R5 


2462 


012110 


001375 








BNE 


1S 


2463 


012112 


000005 








RESET 




2464 


012114 


012706 


001000 






MOV 


#1000,SP 


2465 
















2466 














XMTCT2, RECCT2 


2467 


012120 


023737 


012232 


012234 


CHECK2: 


CMP 


2468 


012126 


001401 








BEQ 


IS 


2469 


012130 


104157 








ERROR 


157 


2470 


012132 


012703 


026320 




1$: 


MOV 


#8UF2. R3 


2471 


012136 


005001 








CLR 


R1 


2472 


012140 


013704 


012232 






MOV 


XMTCT2, R4 


2473 


012144 


122301 






2$: 


CMPB 


(R3)+, Rl 


2474 


012146 


001406 








BEQ 


3S 


2475 


012150 


114337 


001026 






MOVB 


-(R3), SBDDAT 


2476 


012154 


010137 


001024 






MOV 


Rl, SGDDAT 

166 


2477 


012160 


104160 








ERROR 


2478 


012162 


005203 








INC 


R3 


2479 


012164 


005201 






3$: 


INC 


Rl 


2480 


012166 


077412 








soe 


R4,2S 


2481 


012170 


013777 


001060 


170600 


FINIE: 


MOV 


STMPO. aTVECT 


2482 


012176 


013777 


001062 


170566 




MOV 


STMP1. aRVECT 


2483 


012204 


013777 


001064 


170574 




MOV 


STMP2, aCTVECT 


2484 


012212 


013777 


001066 


170562 




MOV 


STMP3, aCRVECT 


2485 


012220 


013777 


001070 


170564 




MOV 


STMP4, aRTCVT 


2486 


012226 


000137 


012240 






JMP 


SEOP 


2487 
















2488 


012232 


000000 






XMTCT2: 


.WORD 


0 


2489 


012234 


000000 






RECCT2: 


.WORD 


0 


2490 


012236 


000000 






COUNT : 


.WORD 


0 


2491 

















BIT 15 SETS IF ANr ERRORS OCCURRED 
IF BIT IS CLEAR NO ERRORS 
GET ERROR INFORMATION 
CLEAR THE WORLD - STOP ALL 
INTERRUPTS 

WAS MORE THAN 1 WORD TRANSFERRED 

IF YES GET LAST GOOD DATA 

IF NO MAKE GOOD DATA -1 

AND GET TO ERROR REPORT 

GET LAST GOOD DATA RECEIVED 

RECEIVER STATUS ERROR 

GET DATA AND STORE IT 

HAS 1 SEC ELAPSED 

IF NO CONTINUE TEST 

IF YES STOP TRANSMISSIONS 

TURN OFF LINE CLOCK 

.•RETURN FROM INTERRUPT TO AWAIT NEXT 

.-MAKE PROCESSOR PRIORITY 0 
;SET UP LOOP COUNTER 
;D0 LOOP UNTIL R5 = 0 

.-STOP EVERYONE SHOULD BE DONE 
;RESET STACK AFTER LAST INTERRUPT 



#0F XMIT INTERRUPTS = REC INTERRUPTS 

IF YES CHECK DATA 

INTERRUPT COMPARISON ERROR 

INITIALIZE TO FIRST RECEIVED DATA 

INITIALIZE TO FIRST XMIT DATA 

GET # OF BYTES TRANSFERRED 

IS RECEIVED DATA = EXPECTED DATA 

IF YES CONTINUE TESTING 

IF NO GET ERROR INFORMATION 

SLU2 DATA COMPARISON ERROR 

IF COONTINUE ON ERROR RESET POINTER 

UPDATE TO NEXT GOOD DATA 

LOOP UNTIL ALL DATA CHECKED 

RESTORE VECTORS 



.-FINISHED TESTING GO TO END OF PASS 
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2493 








249A 








(1 ) 
(1 ) 
(1) 
(1 ) 
(1 ) 








(1 ) 


012240 






C ) 


012240 


000004 


001002 


(1 ) 


012242 


005037 


(1 ) 


012246 


005237 


001106 


(1 ) 


012252 


042737 


100000 


(1 ) 


01^260 


005327 




(1 ) 


012262 


000001 




( 1 ) 


012264 


003022 




(1 ) 


012266 


012737 




(1 ) 


012270 


000001 

V W W V w 




(1 ) 


012272 


012262 




(1) 


012274 


104401 


012341 


(2) 


012300 


013746 


001106 


(2) 


012304 


104405 


012336 


(1 ) 


012306 


104401 


(1 ) 


012312 


013700 


000042 


^1 ) 


012316 


001405 




(1 ) 


012320 


000005 




(1 ) 


012322 


004710 




(1 ) 


012324 


000240 




(1 ) 


012326 


000240 




(1 ) 


012330 


000240 




(1 ) 


012332 






(1 ) 


012332 


000137 




(1 ) 


012334 


003430 




(1 ) 


012336 


377 


377 


(1 ) 


012341 


015 


042412 


(1) 


012346 


050040 


051501 


(1) 


012354 


000043 




2495 








2496 


012356 


011646 




2497 


012360 


013616 




2498 


012362 


062746 


000002 


2499 


012366 


000002 




2500 








2501 








2502 








2503 


012370 


012600 




2504 


012372 


162700 


000004 


2505 


012376 


010037 


012416 


2506 


012402 


016637 


000002 


2507 


012410 


104161 




2508 








2509 


012412 


000000 




2510 


012414 


000000 




2511 


012416 


000000 




2512 
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,S8TTL END OF PASS ROUTINE 



; •INCREMENT THE PASS NUMBER (SPASS) 

••TYPE ••END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
;*IF THERES A MONITOR GO TO IT 
.••If THERE ISN'T JUMP TO TST1 



SEQ 0060 



001106 



$E0P: 

$E0PCT: 
$ENDCT: 

SGET42: 
SENDAD : 

$D0A6N: 



SRTNAD 
000 SENULL 
042116 SENDM6 
020123 



SCOPE 

CLR 

INC 

SIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

SEOPCT 

TYPE 

MOV 

TYPDS 

TYPE 

MOV 

BEO 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 
.WORD 
.BYTE 
.ASCIZ 



STSTNM 
SPASS 

*1 00000, SPASS 

(PC)* 

1 

SDOAGN 
(PC)*,a(PC)* 

1 

.SENDM6 
iPASS.-(SP) 

,IENULL 
»r42,R0 
SDOAGN 

PC.(RO) 



a(PC)* 
TST1 



.•ZERO THE TEST NUMBER 

.•INCREMENT THE PASS NUMBER 

.DON'T ALLOW A NEG. NUMBER 
.LOOP? 

;;YES 

; .-RESTORE COUNTER 



;TYPE 'tND PASS M" 

;SAVE SPASS FOR TYPEOUT 

;G0 TYPE— DECIMAL ASCII WITH SIGN 

.-TYPE A NULL CHARACTER 

;GET MONITOR ADDRESS 

.-BRANCH IF NO MONITOR 

; CLEAR THE WORLD 

;G0 TO MONITOR 

.SAVE ROOM 

.FOR 

;ACT11 

.-.-RETURN 



<l5><l'2>/END PASS'#/ 



.-.-NULL CHARACTER STRING 



WRPSW: 



MOV(SP).-(SP) 

MOV a(SP)*,(SP) 

ADD #2.-(SP) 

RTI 



COPY RE TUN PC 

MOVE NEW PSW TO STACK 

ADJUST JSR RETURN 

POP RETURN PC % NEW PSW 



.•SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 



CATCH: MOV 
SUB 
MOV 

012414 MOV 

ERROR 

HALT 
OLDPC: .WORD 
BDVECT: .WORD 



(SP)*,RO 
*4,R0 
RO,BDVECT 
2(SP) .OLDPC 
161 



0 
0 



GET ADDRESS OF TRAP VECTOR ♦ 4 
ADJUST TO POINT TO TRAP ADDRESS 
STORE TRAP OR INTERRUPT ADDRESS 
GET PC WHERE TRAP OR INTERRUPT OCCURRED 
REPORT ERROR 

.-PROGRAM MUST BE RESTARTED AT THIS POINT 
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2513 
25U 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 

2526 012420 

2527 012420 105237 

2528 012424 001775 

2529 012426 013777 

2530 012434 005237 

2531 012440 011637 

2532 012444 162737 

2533 012452 117737 

2534 012460 032777 

2535 012466 001004 

2536 012470 004737 

2537 012474 104401 

2538 012500 

2539 012500 122737 

2540 012506 001007 

2541 012510 113737 

2542 012516 004737 

2543 012522 000 

2544 012523 000 

2545 012524 000777 

2546 012526 005777 

2547 012532 100001 

2548 012534 000000 

2549 012536 104407 

2550 012540 032777 

2551 012546 001402 

2552 012550 013716 

2553 012554 005737 

2554 012560 001402 

2555 012562 013716 

2556 012566 

2557 012566 022737 

2558 012574 001001 

2559 012576 000000 

2560 012600 

2561 012600 000002 
2562 



DNMAC X24. 07-563 02-FE8-82 
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PAGE n-1 



SEO 0061 



ilHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
•SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL 
»AND GO TO SERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SW15=1 HALT ON ERROR 

•SW13=1 INHIBIT ERROR TYPEOUTS 

»SW09=1 LOOP IN ERROR 

• ^^'■'" ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

•*********•**•*•••••*•**••••••••*•••••••••••••••*•••••*•*••••••* 



SERROR: 



001003 




7$: 


INCS 


$ERFLG 








SEO 


7$ 


001002 


166406 




MOV 


$TSTNM.aDISPLAY 


001012 






INC 


$ERTTL 


001016 






MOV 


(SP) ,$ERRPC 


000002 


001016 




SUB 


#2.$ERRPC 


166340 


001014 




MOVB 


a$ERRPC,$ITEMB 


020000 


166352 




BIT 


#BIT13,aSUR 






BNE 


20$ 


012602 






JSR 


PC,$ERRTYP 


001075 






TYPE 


,$CRLF 




20S: 






000001 


001120 




CMPB 


#APTENV,$ENV 






BNE 


2$ 


001014 


012522 




MOVB 


$irEM8,21$ 


013304 






JSR 


PC,$ATY4 




21$: 


.BYTE 


0 








.BYTE 


0 






22$: 


BR 


22$ 


166306 




2$: 


TST 


asuR 








BPL 


3$ 








HALT 








3$: 


CKSWR 


#BiT09,aSWR 


001000 


166272 




BIT 








BEQ 


4$ 


001010 






MOV 


$LPERR.(SP) 


001072 




4$: 


TST 


$ESCAPE 








6E0 


5$ 


001072 






MOV 


$ESCAPE.(SP) 




5$: 






012322 


000042 




CMP 


#$ENDAD,a#42 








BNE 


6$ 








HALT 








6$: 












RTI 





SET THE fcRROR FlAG 

DON'T LET FLAG GO TO ZERO 

DISPLAY TEST NUMBER AND ERROR FLAG 

INCRtMENT ERROR COUNT 

GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 

SKIP TYPEOUT IF SET 

SKIP TYPEOUTS 

GO TO USER ERROR ROUTINE 



RUNNING IN APT MODE 

NO, SKIP APT ERROR REPORT 

SET ITEM NUMBER AS ERROR NUMBER 

REPORT FATAL ERROR TO APT 



APT ERROR LOOP 

HALT ON ERROR 

SKIP IF CONTINUE 

HALT ON ERROR! 

TEST FOR CHANGE IN SOFT-SWR 

LOOP ON ERROR SWITCH SET? 

BR I F NO 

FUDGE RETURN FOR LOOPING 
CHECK FOR AN ESCAPE ADDRESS 
BR IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 

ACT-11 AUTO-ACCEPT? 

BR IF NO 

YES 

RETURN 
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256A 
2565 

:i 
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SEQ 0062 



012602 
012602 
012606 
012610 
012612 
012616 



104401 
010046 
005000 
153700 
001004 



012620 013746 



012624 
012626 
012630 
012632 
012634 
012636 
012640 
012644 
012650 
012652 
012654 
012656 
012662 
012666 
012670 
012672 
012674 
012700 
012702 
012704 
012706 
012712 
012714 
012714 
012716 
012720 
012722 
012724 
012730 
012732 



2566 



104402 
000426 
005300 
006300 
0a6300 
006300 
062700 
012037 
001404 
104401 
000000 
104401 
012037 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104401 
000207 

013046 
104402 
005710 
001770 
104401 
000771 
020040 
012736 



001075 
001014 
001016 



001160 
012654 



001075 
012672 



001075 
001075 



012732 
000 



.S8TTL ERROR MESSAGE TYPEOUT ROUTINE 

••*************************************************************** 

':'*JH1S ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEM8) TO DETERMINE WHICH 
.••ERROR IS TO BE REPORTED, IT THEN OBTAINS. FROM THE "ERROR TABLE" (SERRTB). 
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



$ERRTYP: 





TYPE 


.SCRLF 




MOV 


RO,-(SP) 




CLR 


RO 




BISB 


MSITEMB.RO 




BNE 


IS 




MOV 


$ERRPC,-(SP) 




TYPOC 






BR 


6S 


IS: 


DEC 


RO 




ASL 


RO 




ASL 


RO 




ASL 


RO 




ADD 


*»cRRTo,RO 




MOV 


(RO/*,c» 




BEQ 


3S 




T woe 

TYPE 




2S: 


.WORD 


0 




TYPE 




3S: 


MOV 






BEQ 


5S 




TYPE 




4>: 


.WORD 


yj 




T VDC 

1 irt 




5$: 


MOV 


(RO).RO 




BNE 


7$ 


6$: 


MOV 


(SP)+.RO 




TYPE 


.SCRLF 




RTS 


PC 


7$: 








MOV 


a(RO)*.-(SP) 




TYPOC 






TST 


(RO) 




BEO 


6S 




TYPE 






BR 


?r 


8$: 


.ASCI2 






.EVEN 





.-."CARRIAGE RETURN" t "LINE FEED" 
;;SAVE RO 

; .-PICKUP THE ITEM INDEX 

.-.-IF ITEM NUMBER IS ZERO. JUST 
.-.-TYPE THE PC OF THE ERROR 
.-.-SAVE SERRPC FOR TYPEOUT 
;: ERROR ADDRESS 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 
.-.•GET OUT 

.-.•ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



;;FORM TABLE POINTER 

; .-PICKUP "ERROR MESSAGE" POINTER 

;;SKIP TYPEOUT If NO POINTER 

.-.-TYPE THE "ERROR MESSAGE" 

;;"ERROR MESSAGE" POINTER GOES HERE 

.-.-"CARRIAGE RETURN" t 'tINE FEED" 

; .-PICKUP "DATA HEADER" POINTER 

.-.'SKIP TYPEOUT IF 0 

.-.-TYPE THE "DATA HEADER" 

;;"DATA HEADER" POINTER GOES HERE 

.-.•"CARRIAGE RETURN" t 'tlNE FEED" 

;; PICKUP 'tATA TABLE" POINTER 

;;60 TYPE THE DATA 

• -RESTORE RO 

; -"CARRIAGE RETURN" & "LINE FEED" 
;; RE TURN 

;;SAVE 8(RC)+ FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCIKALL DIGITS) 

;.IS THERE ANOTHER NUMBER? 

;;BR IF NO 

;;TYPE TW0(2) SPACES 
.-.•LOOP 

.-;TW0(2) SPACES 
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SEQ 0063 



2568 








2569 








2570 








2571 








2572 








2573 


012736 


012737 


013076 


2574 


012744 


012737 


000340 


2575 


012752 


010046 




2576 


012754 


010146 




2577 


012756 


010246 




2578 


012760 


010346 




2579 


012762 


010446 




2580 


01 2764 


010546 




2581 


012766 


017746 


166046 


2582 


012772 


010637 


013102 


2583 


012776 


012737 


013010 


CJO't 




uuuuuu 




2585 


013006 


000776 




2586 








2587 








2588 








2589 








2590 
2591 


013010 


012737 


013076 


2592 


013016 


013706 


013102 


2593 


013022 


012677 


166012 


2594 


013026 


012605 




2595 


013030 


012604 




2596 


013032 


012603 




2597 


01 3034 


012602 




2598 


013036 


012601 




2599 


013040 


012600 


012736 


2600 


013042 


012737 


2601 


013050 


012737 


000340 


2602 


013056 


005037 


013102 


2603 


013062 


005237 


013102 


2604 


013066 


001375 




2605 


013070 


104401 




2606 


013072 


013104 




2607 


013074 


000002 




2608 


013076 


000000 




2609 


013100 


000776 




2610 


013102 


000000 




2611 


013104 


005015 


047520 




013112 


000122 




2612 









.SBTTL POWER DOWN AND UP ROUTINES 



.-•POWER DOWN ROUTINE 



SPWRDN: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



#$JLLUP,8#PWRVEC ;SET 
#340.8#PWRVEC*2 ;PRIO 



RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4.-(SP) 
R5,-(SP) 
aSWR.-(SP) 
SP.$SAVR6 



.•PUSH 
.•PUSH 
.•PUSH 
.■PUSH 
;PUSH 
;PUSH 
.PUSH 
;SAVE 



#$PWRUP,a#PURVEC .-SET 



FOR FAST UP 

:7 

RO ON STACK 
Rl ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
aSWR ON STACK 
SP 

UP VECTOR 



.-2 



;HAN6 UP 



***** 



'***** 



$PWRUP: 



1$: 

SPWRMG: 

SILLUP: 

$SAVR6: 
SPOWER: 



******** 

; *POWER 
******** 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
INC 
BNE 
TrPE 
.WORD 
RTI 
HALT 
BR 
0 

.ASCIZ 



****************** 

UP ROUTINE 
***•*****♦♦♦*♦***• 

#$ILLUP.a#PURVEC 
$SAVR6.SP 

(SP) ^.aswR 

(SP)*.R5 
{SP)*,R4 

rSP)+,R3 
(SP)*.R2 
(SP)*.R1 
(SP)*. RO 

#$PWRDN,a#PWRVEC 

#340,a#PWRVEC+2 

$SAVR6 

$SAVR6 

1$ 

SPOWER 



.-2 

<15><12>'^OWER" 



********************* *********** 

******************************** 

.-SET FOR FAST DOWN 
GET SP 

POP STACK INTO aSWR 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 

POP STACK INTO RO 

.'SET UP THE POWER DOWN VECTOR 

PRI0:7 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

REPORT THE POWER FAILURE 
POWER FAIL MESSAGE POINTER 

THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 
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0131U 
0131K 
013116 
01312A 



104A07 
012777 
001052 



013126 000A16 



013130 
01313A 
013U2 
013U6 
013152 
01315A 
013156 
013162 
013164 
013164 
013170 
013172 
013200 
013202 
013210 
013212 
013216 
013222 
013230 
01323A 
013240 
013244 
013252 
013260 
013264 



013746 
012737 
005737 
012637 
000421 
022626 
012637 
000407 

105737 
001412 
032777 
001404 
013737 
000420 
105037 
105237 
113737 
011637 
011637 
005037 
112737 
013777 
013716 
000002 
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,S8TTL SCOPE HANDLER ROUTINE 

•♦••••••*•*•»••*•♦»•••••••**••••♦••***••♦♦*••****•****••♦*♦••••• 

'*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
•AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DI SPLAV<^: 0> * 
•AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
OPTIONS PROVIDED BY THIS ROUTINE ARE: 
LOOP ON TEST 
LOOP ON ERROR 



SEO 



*THE SWITCH 
•SW14=1 
•SW09=1 
•CALL 

♦ SCOPE 



;SCOPC=IOT 



040000 165714 1$ 



SSCOPE: 

CKSWH 
BIT 
BNE 

;##mSTART OF 
SXTSTR: BR 



#6JT14,aSUR 
$OVER 

CODE FOR THE 
6$ 



XOR 



000004 






MOV 


aJ»ERRVEC.-(SP) 


013154 


000004 




MOV 


*5$,a#ERRVEC 
a#1 77060 


1 77060 






TST 


000C04 






MOV 


(SP)*,a*ERRVEC 






BR 


SSVLAD 






5$: 


CMP 


(SP)*,(SO)+ 
(SP)*.8*ERRVEC 


000004 






MOV 






BR 


7$ 

CODE FOR THE XOR 






b%::»»*ftftEND OF 


001003 




2S: 


TST8 


SERFLG 






BEQ 


SSVLAD 


001000 


165640 




BIT 
BEQ 


#BIT09,aSWR 
4$ 


001010 


001006 


7$: 


MOV 
BR 


SLPERR,$LPADR 
SOVER 


001003 




4$: 


CLRB 


SERFLG 


001002 




SSVLAD: 


INCB 


STSTNM 


001002 


001104 




M0V8 


STSTNM,STESTN 


001006 






MOV 


(SP). SLPADR 


001010 






MOV 


(SP),SLPERR 


001072 






CLR 


SE SCAPE 


000001 


001015 




M0V8 


#1,SERMAX 


001002 


165562 


SOVER: 


MOV 


STSTNM.aOISPLAY 


001006 






MOV 
RTI 


SLPADR. (SP) 



;;TfST FOR CHANGE IN SOFT-SWR 
;;LOOP ON PRESENT TEST? 
;;ycS IF SW14=1 
TEi'TER##Xr#* 

RUNNING ON THE "XOR" TESTER CHANGE 
;;THIS INSTRUCTION TO A "HOP" (NOP=240) 
.-.-SAVE THE CONTENTS OF THE ERROR VECTOR 
;;SET FOR TIMEOUT 
;;TIME OUT ON XOR? 
;; RE STORE THE ERROR VECTOR 
;;60 TO THE NEXT TEST 
;; CLEAR THE STACK AFTER A TIME OUT 
; .-RESTORE THE ERROR VECTOR 
;;LOOP ON THE PRESENT TEST 

TESTER##*#* 
;;HAS AN ERROR OCCURRED? 
;;8R IF NO 
;;LOOP ON ERROR? 
;;8R IF NO 

;;SET LOOP ADDRESS TO LAST SCOPE 

.-.-ZERO THE ERROR FLAG 
;; COUNT TEST NUMBERS 
;;SET TEST NUMBER IN APT MAILBOX 
;;SAVE SCOPE LOOP ADDRESS 
.-.-SAVE ERROR LOOP ADDRESS 
;; CLEAR THE ESCAPE FROM ERROR ADDRESS 
;;ONLY ALLOW ONE(I) ERROR ON NEXT TEST 
; .-DISPLAY TEST NUMBER 
.-.•FUDGE RETURN ADDRESS 
.-.-FIXES PS 



000001 013532 
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2618 
2619 
2620 
2621 

2623 013266 112737 000001 013532 

262A 013274 112737 000001 013530 

2625 01 3302 000403 

2626 01330A 112737 
2b27 013312 

2628 013312 010046 

2629 013314 010146 

2630 013316 105737 013530 

2631 013322 001450 

2632 013324 122737 000001 001120 

2633 013332 001031 

2634 013334 132737 000100 001121 

2635 013342 001425 

2636 013344 017600 000004 

2637 013350 062766 000002 000004 

2638 013356 005737 001100 

2639 013362 001375 

2640 013364 010037 001114 

2641 013370 105720 

2642 01337? 001376 

2643 013374 163700 001114 

2644 01 3400 006200 

2645 013402 010037 001116 

2646 013406 012737 000004 

2647 013414 000413 

2648 013416 017637 000004 

2649 013424 062766 000002 

2650 013432 013746 177776 

2651 013436 004737 013534 

2652 013442 000000 

2653 013444 

2654 013444 105737 013532 

2655 013450 001413 

2656 013452 005737 001120 

2657 013456 001410 

2658 013460 005737 001100 

2659 013464 001375 

2660 013466 017637 000004 001102 

2661 013474 005237 001100 

2662 013500 062766 000002 000004 

2663 013506 105037 013532 

2664 013512 105037 013531 

2665 013516 105037 013530 

2666 013522 012601 

2667 013524 012600 

2668 013526 000207 

2669 013530 000 

2670 013531 000 

2671 013532 000 
2672 

2673 013534 
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S€0 0065 



001100 

013442 
000004 



.SBTTL APT COMMUNICATIONS ROUTINE 



$ATY1 : 
$ATY3: 

$ATY4: 
$ATYC: 



1$: 
2S: 



3$: 



4$: 
5$: 
10$: 



11$; 



12$: 



$MFLG 
SLFL6 
$FFL6 



NOVB 
MOVB 
BR 

MOVB 

MOV 

MOV 

TSTB 

BEO 

CMPB 

BNE 

BITB 

BEQ 

MOV 

ADD 

TST 

BNE 

MOV 

TSTB 

BNE 

SUB 

ASR 

MOV 

MOV 

QR 

MOV 

ADD 

MOV 

JSR 

.WORD 

TSTB 

BEQ 

TST 

BEO 

TST 

BNE 

MOV 

INC 

ADD 

CLRB 

CLRB 

CLRB 

MOV 

MOV 

RTS 

.BYTE 

.BYTE 

.BYTE 

.EVEN 



#1.$FFL6 
#1,$MFLG 
SATYC 
#1,$FFLG 

RO.-(SP) 
R1. -(SP) 
$MFL6 
5$ 

#APTENV.$ENV 
3$ 

#APTSPOOL.$ENVM 
3$ 

84 (SP) .RO 
#2.4(SP) 
$MS6TYPE 
1$ 

RO,$MSGAD 

(RO)* 

2$ 

$MSGAD,RO 

RO 

R0.$MS6LGT 

*4.$MSGTYPE 

5$ 

a4(SP).4$ 
*2-4(SP) 
177776, -(SP) 
PC.$TYPE 

0 

$FFLG 
12$ 
$ENV 
12$ 

$MSGTYPE 
11$ 

a4(SP),$FATAL 

$MSGTYPE 

#2.4(SP) 

$FFL6 

$LFLG 

$MFL6 

(SP)+,R1 

(SP)*,RO 

PC 

0 

0 

0 



;T0 REPORT FATAL ERROR 
;T0 TYPE A MESSAGE 

;T0 ONLY REPORT FATAL ERROR 

;PUSH RO ON STACK 
;PUSH R1 ON STACK 
.•SHOULD TYPE A MESSAGE? 
;IF NOT: BR 
.•OPERATING UNDER APT? 
•IF NOT : BR 

•SHOULD SPOOL MESSAGE? 
;IF NOT: BR 
;GET MESSAGE ADDRESS 
;BUMP RETURN ADDRESS 

;SEE IF DONE U/ LAST XMISSION'' 
;IF NOT: WAIT 
;PUT ADDRES«^ IN MAILBOX 
;FIND END OF MESSAGE 

.-SUB START OF MESSAGE 
;6ET MESSAGE LENGTH IN WORDS 
;PUT LENGTH IN MAILBOX 
;TELL APT TO TAKE MESSAGE 

.-PUT MSG ADDR IN JSR LINKAGE 
;BUMP RETURN ADDRESS 
.•PUSH 177776 ON STACK 
.-CALL TYPE MACRO 



; SHOULD REPORT FATAL ERROR? 
;IF NOT: BR 
.-RUNNING UNDER APT? 
;IF NOT: BR 

.•FINISHED LAST MESSAGE? 
;IF NOT: WAIT 
.-GET ERROR # 
.•TELL APT TO TAKE ERROR 
.-BUMP RETURN ADDRESS 
.-CLEAR FATAL FLAG 
.•CLEAR LOG FLAG 
.-CLEAR MESSAGE FLAG 
.-POP STACK INTO R1 
.-POP STACK INTO R1 
.-RETURN 

.-LOG FLAG 
.-FATAL FLAG 



B 6 
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CJKOlA.Pn 20-OCT-B1 16:08 APT CDWIUNI CATIONS ROUTINE SEC 0066 

2674 000200 APTSI2E=200 

2675 000001 APTENV=001 

2676 000100 APTSP0OL=100 

2677 000040 APTCSUP=040 
2678 
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CJKDM.P11 20-OCT-81 16:08 



2680 
268 

:i 



DNHAC X24. 07-563 02-FEB-82 
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.S8TTL TY^E ROUTINE 



6 

16:42 
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SEQ 0067 



•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
♦THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



•N0TE1 
•N0TE2 
•N0TE3 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



•CALL: 

•1) USING A TRAP INSTRUCTION 

• TYPE ,MESADR 
•OR 

• TYPE 

• MESADR 



::MESADR IS FIRST ADDRESS OF AN ASflZ STRING 



rt1 7C 7/ 


1 rtC777 


nni n57 




crvDC • 
> 1 Trt . 








m 7C/ n 
01 jjhU 


1 UUUUd 








QDI 


1 C 


•PP TP VPC 


U 1 Jj'tc 


UUUUUU 








UAI T 




•UAI T UPBP TP MO TFPMTMAI 




Ann/ 7n 








QO 

on 


7« 


■ ■ 1 PAUF 


m 7^z./» 
U 1 J j*»0 


v 1 UU*»o 






1 1 • 


Mni/ 
nuv 


DO -fCP) 
nU , \ J 




m 7^crt 
U 1 3 j5U 


m 7AAA 


f\c\f\f\r\'> 






Mnu 
nuv 


a5fcp) pn 




U 1 J J j*» 


1 55777 


UUUUU 1 


nni 1 5n 

UU 1 1 cU 




rMDQ 

LHrO 




••RIIMMTMf: TM APT MOnP 


U 1 jjOc 


001011 












• -MO <;n ruprr pop apt rniucni F 


U I J jOh 


175777 


nnni nn 


nni 151 

UU \ ic 1 




P T TP 


jTAPTCPnni tPMUM 


••CPnni MP^CARP TO APT 


m 7^75 
VIJJ'C 


nni LC\^ 








□CU 




• 'lun ruPr^ pod rnMcni p 


013574 


ni nn77 


ni 7Anz 






nuv 


on A1 c 


. .cpTliP MFCCA(;F ADnBF^^ POP APT 


m 7/mn 
U 1 30UU 


nnz. 777 








ICD 


or CATV7 


••cpnni MFCCARF Tn apt 

, , dr UUL nCddMOC lU Mr 1 


U 1 jOU*» 


nnnnnn 






0 1 * • 




n 
u 


• -MF^^Af^F ADDPF^C 
r.ncOOMOC Ml/l/nCdd 


ni 7 AAA 


1 75777 


nnnn/.n 


nni 1 51 

UU 1 1 C 1 


A5t • 

Oc* • 


B f TP 


#APTrCIIP CPMV/M 


• -APT rnN^ni f ^iipprf^cfd 


01 3614 


001003 

\j \J 1 \J\J J 








BNE 


60S 


•; YES. SKIP TYPE OUT 


013616 


112046 






2$: 


MOVB 


(RO)+.-(SP) 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 


013620 


001005 








BNE 


4S 


013622 


005726 








TST 


(SP) + 


;;IF TERMINATOR POP IT OFF THE STACK 


013624 


012600 






60S: 


MOV 


(SP)+.RO 


: .-RESTORE RO 


013626 


062716 


000002 




3$: 


ADD 


#2.(SP) 


:;ADJUST RETURN PC 


013632 


000002 








RTI 




.-.RETURN 


013634 


122716 


00001 1 




4$: 


CMPB 


#HT,(SP) 


.-.-BRANCH IF <HT> 


01 3640 


001430 








BEO 


8S 




013642 


122716 


000200 






CMPB 


#CRLF.(SP) 


.•; BRANCH IF NOT <CRLF> 


013646 


001006 








BNE 


5S 




013650 


005726 








TST 


(SP)* 


.-.-POP <CR><LF> EOUIV 


013652 


104401 








TYPE 




;;TYPE A CR AND LF 


013654 


001075 








SCRLF 






013656 


105037 


014064 






CLR6 


SCHARCNT 


;; CLEAR CHARACTER COUNT 


013662 


000755 








BR 


2S 


;;6ET NEXT CHARACTER 


013664 


004737 
123726 


013746 




5$: 


JSR 


PC.STYPEC 


;.-G0 TYPE THIS CHARACTER 


01 3670 


001056 




6$: 


CMPB 


SFILLC. (SP)* 


.-.-IS IT TIME FOR FILLER CHARS.? 


013674 


001350 








BNE 


2S 


;.-IF NO GO GET NEXT CHAR. 


013676 


013746 


001054 






MOV 


SNULL. -(SP) 


;;GET * OF FILLER CHARS. NEEDED 














;;AND THE NULL CHAR. 


013702 


105366 


000001 




7$: 


DECB 


KSP) 


.-.-DOES A NULL NEED TO BE TYPED? 


013706 


002770 








BLT 


6S 


;;BR IF N0~60 POP THE NULL OFF OF STACK 


013710 


004737 


013746 






JSR 


PC.STYPEC 


;;6U TYPE A NULL 



CjtCD 



2682 
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SEO 0068 



01 3714 


105337 


014064 






DECB 


SCHARCNT 


013720 


000770 






BR 


7$ 










.•HORIZONTAL TAB 


PROCESSOR 


013722 


112716 


000040 




S»: 


HUVo 


#• ,(SP) 


013726 


004737 


013746 




y»: 


1 CD 


PC.STrPEC 


013732 


132737 


000007 


014064 




D 1 TD 

ol Its 


#7, SCHARCNT 


01 3740 


001372 








oNt 


9$ 


013742 


005726 








TCT 


(SP)* 


013744 


000724 








an 


2$ 


013746 








tt T VDC r • 






013746 


105777 


165072 






T C TO 


aSTKS 


013752 


100022 








DDI 
BrL 


10$ 


013754 


017746 


165066 






nuv 


a$T<8--(SP) 


013760 


042716 


177600 






D I r 


#177600. (SP) 


013764 


122716 


000023 






TMOD 

Lrlrd 


#$XOFF.(SP) 


013770 


001012 










102$ 


013772 








ini c • 

1 U 1 • • 






013772 


105777 


165046 








a$TKS 


U13776 


100375 








DDI 


101$ 


01 4000 


117716 


165042 






MnuQ 
nuvo 


a$T»C8.(SP) 


014004 


042716 


177600 






Dir 

Di L 


#177600, (SP) 


'14010 


122716 


000021 








#$XON,(SP) 


014014 


001366 








Dive 


101$ 


0H016 








1 • 

1 \Jc9 • 






014016 


005726 








1 d 1 


(SP)* 


014020 














014020 


105777 


165024 






TSTB 


a$TPs 


014024 


100375 








BPL 


10$ 


014026 


116677 


000002 


165016 




novB 


2(SP) ,a$TPB 


014034 


122766 


000015 


000002 




CMPB 


#CR.2(SP) 


014042 


001003 








BNE 


1$ 


014044 


105037 


014064 






CLR8 


$CHARCNT 


014050 


000406 








BR 


$TyPEX 


014052 


122766 


000012 


000002 


1$: 


CMP8 


#LF.2(SP) 


014060 


001402 








BEQ 


$TYPEX 


014062 


105227 








INCB 


(PC)* 


014064 


000000 






SCHARCNT.-.WORD 


0 


014066 


000207 






STYPEX: 


RTS 


PC 



;;D0 NOT COUNT AS A COUNT 
.-.-LOOP 



;; REPLACE TAB UITH SPACE 
.-.-TYPE A SPACE 
;; BRANCH IF NOT AT 
;;TA8 STOP 

;;POP SPACE OFF STACK 
;;GET NEXT CHARACTER 

;;CHAR IN KYBD BUFFER? 
;;BR IF NOT 
;;GET CHAR 

;; STRIP EXTRANEOUS BITS 
;;WAS CHAR XOFF 
;;BR IF NOT 

;;UA1T FOR CHAR 



.•GET CHAR 
.•STRIP IT 
;WAS IT XON? 
:BR IF NOT 

;;FIX STACK 

;;UAIT UNTI. PRINTER IS READY 

;;LOAD CHAR TO BE TYPED INTO DATA REG. 
;;IS CHARACTER A CARRIAGE RETURN? 
;; BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 
;;EXIT 

;;IS CHARACTER A LINE FEED? 
.-.-BRANCH IF YES 
;; COUNT THE CHARACTER 
.-.CHARACTER COUNT STORAGE 



.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 

•************************«*******************t*«t* *****•***#***** 

iTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

*CALL: 

MOV NUM,-(SP) ; .-NUMBER TO BE TYPED 

TYPOS .-.-CALL FOR TYPE OUT 

.BYTE N .•;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

.BYTE M ;;M=1 



MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 

MJD001 



OR 0 

.•;1=TYPE LEADING ZEROS 
:;0=SUPPRESS LEADING ZEROS 



•$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
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(1 
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(1 
(1 
(1 
(1 
(1 
(1 
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Sr:0 0069 



; .-NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 



•STYPOS OR STYPOC 
•CALL: 

• NOV NUH.-(SP) 

• TYPON 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

• MOV NUM. -(SP) ;. -NUMBER TO BE TYPED 

• TYPOC ;;CALL FOR TYPEOUT 



(1) 


0U070 


017646 


000000 




STYPOS: 


MOV 


(1) 


0U074 


116637 


000001 


014313 




H0V8 


(1) 


0U102 


112637 


014315 






M0V8 


(1) 


0U106 


062716 


000002 






ADD 


(1) 


0U112 


000406 








BR 


(1) 


0U1U 


112737 


000001 


014313 


STYPOC: 


MOVB 


(1) 


0U122 


112737 


000006 


014315 




MOVB 


(1) 


0U130 


112737 


000005 


014312 


STYPON: 


MOVB 


(1) 


0U136 


01 0346 








MOV 


(1) 


ouuo 


010446 








MOV 


(1) 


0UU2 


010546 








MOV 


(1) 


OUUA 


1 1 3704 


014315 






MOVB 


(1) 


0U150 


005404 








NEC 


(1) 


014152 


062704 


000006 






ADD 


(1) 


014156 


110437 


014314 






MOVB 


(1) 


014162 


1 1 3704 


014313 






MOVB 


(1) 


014166 


016605 


000012 






MOV 


(1) 


014172 


005003 








CLR 


(1 ) 


014174 


006105 






IS: 


ROL 


(1) 


014176 


000404 








BR 


(1) 


014200 


006105 






2S: 


ROL 


(1) 


014202 


006105 








ROL 


(1 ) 


014204 


006105 








ROL 


(1 ) 


014206 


010503 






3S: 


MOV 


(1) 


014210 


006103 






ROL 


(1 ) 


014212 


105337 


014314 






DECB 


(1) 


014216 


100016 








8PL 


( l) 


014220 


042703 


177770 






BIC 


(1) 


014224 


001002 








BNE 


(1) 


014226 


005704 








TST 


(1) 


014230 


001403 






4S: 


OCA 


(1) 


014232 


005204 






INC 


(1) 


014234 


052703 


000060 






BIS 


(1) 


014240 


052703 


000040 




5$: 


BIS 


(1) 


014244 


110337 


014310 






MOVB 


(1) 


014250 


104401 


014310 






TYPE 


(1) 


014254 


105337 


014312 




7$: 


DECB 


(1) 


014260 


003347 








BGT 


(1) 


014262 


002402 








BLT 


(1) 


014264 


005204 








INC 


(1) 


014266 


000744 








BR 


(1) 


014270 


012605 






6S: 


MOV 


(1) 


014272 


012604 








MOV 


(1) 


014274 


012603 








MOV 


(') 


014276 


016666 


000002 


000004 




MOV 


(1) 


014304 


012616 








MOV 



a(SP).-(SP) 

1(SP).S0FILL 

(SP)*.S0H0DE+1 

*2.(SP) 

STYPON 

#1.S0FILL 

#6.S0M0DE+1 

#5,S0CNT 

R3,-(SP) 

R4.-(SP) 

R5. -(SP) 

S0M0DE+1.R4 

R4 

ir6.R4 

R4.S0M0DE 

S0FILL.R4 

12(SP).R5 

R3 

R5 

3S 

R5 

R5 

R5 

R5,R3 
R3 

SOMODE 
7S 

#177770. R3 

4S 

R4 

5$ 

R4 

#'0.R3 

#• -R3 

R3.§S 

.8S 

SOCNT 

2S 

6S 

R4 

2S 

(SP)*.R5 

(SP)*.R4 

(SP)*.R3 

2(SP).4(SP) 

(SP)*.(SP) 



;; PICKUP THE MODE 
.-.-LOAD ZERO FILL SWITCH 
; .-NUMBER OF DIGITS TO TYPE 
: .-ADJUST RETURN ADDRESS 

.-.-SET THE ZERO FILL SWITCH 
;;SET FOR SIX(6) DIGITS 
;;SET THE ITERATION COUNT 
.-.-SAVE R3 
.-.-SAVE R4 

;;GET THE NUMBER OF DIGITS TO TYPE 

;; SUBTRACT IT FOR MAX. ALLOWED 

.-.-SAVE IT FOR USE 

;;GET THE ZERO FILL SWITCH 

PICKUP THE INPUl NUMBER 
; .-CLEAR THE OUTPUT WORD 
; .-ROTATE MSB INTO "C" 
;;60 DO MSB 
;;FORM THIS DIGIT 



.-GET LS8 OF THIS DIGIT 

.•TYPE THIS DIGIT? 
;;BR IF NO 
;;GET RID OF JUNK 
;;TEST FOR 0 
;; SUPPRESS THIS 0? 
' 'BR IF YES 

••DON'T SUPPRESS ANYMORE O'S 

;;MAK£ THIS DIGIT ASCII 

;;MAKE ASCII IF NOT ALREADY 

;;SAVE FOR TYPING 

;;G0 TYPE THIS DIGIT 

;; COUNT BY 1 

;;BR IF MORE TO DO 

;;BR IF DONE 

;.-INSURE LAST DIGIT ISN'T A BLANK 
:;G0 DO THE LAST DIGIT 
; .-RESTORE R5 
; .-RESTORE R4 
- 'RESTORE R3 

•)SET THE STACK FOR RETURNING 
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SEO 0070 



1 
1 

[1 
2683 
1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 

1 
3 
3 
3 
3 



0U 306 000002 
0K310 000 



0U311 
0U312 
0U313 



000 
000 
000 



0H3U 000000 



8$: 

SOCNT: 
SOFJLL: 
SOnODE : 
.SBTTL 



RTI 
.BYTE 
.BYTE 
.BYTE 
• BYTE 
.WORD 



; .-RETURN 

; .-STORAGE FOR ASCII DIGIT 
.-.TERMINATOR FOR TYPE ROUTINE 
.-.-OCTAL DIGIT COUNTER 
.-.-ZERO FILL SWITCH 
;;NUMBER OF DIGITS TO TYPE 



CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



***************************************************************** 

•WhIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
.-•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
.-•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
.-•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
; •REPLACED WITH SPACES. 



.-•CALL: 



MOV 

TYPDS 



NUM.-(S?) 



014316 








•TYPDS . 




OA ^ / CD \ 

RU,-vJ>r; 


014316 


010046 








MOV 


014320 


A 4 A 4 / A 

010146 








MAI/ 


Ol _ ^ CD \ 
D*^ t CD ^ 


014322 


A 4 A *^ / A 

010246 








MA ty 

MOV 


014324 


A 4 A 7 i d. 

010346 








MAI/ 

MOV 


R3.-(SP) 


014326 


A4 AC / A 

010546 








HOV 


R5,-(SP) 


014330 


A 4 ^ / Z 

012746 


A ^ A A A 

020200 






MOV 




014334 


A 4 Z ^ A C 

016605 


AAAA^ A 

000020 






MUV 


20(SP).R5 


014340 


4 A AAA/ 

1 00004 








DDI 

BPL 


1 • 


A4 1 T/ ^ 

014342 


AACy AC 

005405 








Neb 


DC 

m -.1 isr; 


014344 


4 4 T ^ 

1 12766 


AAAAC C 

000055 


AAAAA1 
0000(> 1 




nOVo 


014352 


A A C AAA 

005000 








CLR 


DA 

RU 


014354 


012703 


014332 






MAI/ 


*»UoL^ .K J 

M • / d7 \ 4. 
# , KHol * 


014360 


1 12723 


r\r\f\f\i A 

000040 






■iAl/D 


U 1 M jOh 












R2 


014366 


016001 


014522 






MOV 


$DTBL(R0),R1 


014372 


160105 






3$: 


SUB 


R1,R5 


014374 


002402 








BLT 


4$ 


014376 


005202 








INC 


R2 


014400 


000774 








BR 


3S 


014402 


060105 






4$: 


ADD 


R1,R5 


014404 


005702 








TST 


R2 


014406 


001002 








BNE 


5S 


014410 


105716 








TSTB 


(SP) 


014412 


100407 








BMI 


7$ 


014414 


106316 






5$; 


ASLB 


(SP) 


014416 


103003 








BCC 


6S 


014420 


116663 


000001 






MOVB 


1(SP),-1(R3) 
#'0.R2 
#' .R2 


014426 


052702 


000060 




6S: 


BIS 


014432 


052702 


000040 




7$: 


BIS 


014436 


110223 








MOVB 


R2.(R3)* 
(r6) + 


014440 


005720 








TST 


014442 


020027 


000010 






CMP 


RO,M^O 


014446 


002746 








BLT 


2$ 


014450 


003002 








BGT 


8S 


014452 


010502 








MOV 


R5.R2 


014454 


000764 








BR 


6$ 


014456 


105726 






8$: 


TSTB 


(SP) + 



.-.-PUT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 



.-PUSH RO ON STACK 
;.-PUSH RI ON STACK 
;.-PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;.-PUSH R5 ON STACK 
;;SET BLANK SWITCH AND SIGN 
;;GET THE INPUT NUMBER 
;;BR IF INPUT IS POS. 
;;MAKE THE BINARY NUMBER POS. 
;;MAKE THE ASCII NUMBER NEG. 
;;ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 
;;SET THE FIRST CHARACTER TO A BLANK 
; .-CLEAR THE BCD NUMBER 
.-.-GET THE CONSTANT 
;.FORM THIS BCD DIGIT 
;;BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

;;ADD BACK THE CONSTANT 

;; CHECK IF BCD DI6IT=0 

;;FALL THROUGH IF 0 

; .-STILL DOING LEADING O'S? 

;;BR IF YES 

;;MSD? 

;;BR IF NO 

;; YES— SET THE SIGN 

.-.-MAKE THE BCD DIGIT ASCII 

.-.-MAKE IT A SPACE IF NOT ALREADY A DIGIT 

;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 

;;JUST INCREMENTING 

.-.-CHECK THE TABLE INDEX 

;;G0 DO THE NEXT DIGIT 

;;60 TO EXIT 

;;GET THE LSD 

;;G0 CHANGE TO ASCII 

;;WAS THE LSD THE FIRST NON-ZERO? 



JUDIAO n/2?B SLU LTC REPR DIAG 
JKDIA.P11 20-0CT-81 16:08 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



(1 
<1 
(1 
(5 
'.3 
(3 
(3 
(5 
( 
( 
( 
( 
( 
( 
( 
( 
( 

2684 



0UA60 
0U462 
0U470 
0UA72 
0U47A 
0U476 
0U500 
0U502 
0U5OA 
0U510 
0U516 
0U520 
0U522 
0U524 
0U526 
0U530 
0U532 



100003 
116663 
105013 
012605 
012603 
012602 
012601 
012600 
10A401 
016666 
012616 
000002 
023420 
001750 
000U4 
000012 
OOOOOA 



:77777 y7777b 



9$: 



0U532 
000002 



000004 



SDTBL: 



BPL 

novB 

CLRB 

NOV 

NOV 

NOV 

MOV 

MOV 

TYPE 

MOV 

MOV 

RTI 

10000. 
1000. 
100. 
10. 



9S 

-1(SP),-2(R3) 

(R3) 

(SP)*,R5 

(SP)*.R3 

(SP)*,R2 

(SP)*,R1 

(SP)*,RO 

,$DBLK 

2(SP).4(SP) 

(SP)+.(SP) 



BR I F NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK IN^O R2 

POP STACK INTO Rl 

POP STACK INTO RO 

NOW TYPE THE NUMBER 

ADJUST THE STACK 

RETURN TO USER 



SDBLK: .BLKW 4 



CJKDIAO n/238 SLU LTC REPR DIAG 
CJKDIA.PII 20-0CT-81 16:08 

2686 
2687 

(1 
(2 
(1 

(1 
(2 
(1 
(1 
(1 
(1. 

(1) 0U542 022737 000176 OQiO^O 
(1) 0U550 001074 
(1) 0U552 105777 164266 
(1) 014556 100071 
(1) 014560 117746 164262 
(1) 014564 042716 177600 
(1) 014570 022726 000007 
(1) 014574 001062 
(1) 014576 123727 
(1) 014604 001456 
(1. 

(1) 014606 104401 

(1) 014612 104401 

(2) 014616 013746 
(2) 014622 104402 
(1) 014624 104401 
(1) 014630 005046 
(1) 014632 005046 
(1) 014634 105777 
(1) 014640 100375 
(1. 

(1) 014642 117746 
(1) 014646 042716 
(1 
(1 

(1. 

(1) 014652 021627 
(1) 014656 001005 
(1) 014660 104401 
(1) 014664 062706 
(1) 014670 C00757 
(1 
(1 



001034 000001 



015277 
015304 
000176 

015315 



164204 



164200 
1 77600 



000025 

015272 
000006 



H 6 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



.SBTTL TTY INPUT ROUTINE 



SEQ 0072 



'.ENABL LSB 

••*************************************************************** 

;-iS0FTWARE SWITCH REGISTER CHANGE ROUTINE. 
.•♦ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
.••SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 



iCKSWR: CMP 
BNE 
TSTB 
BPL 
MOVB 
BIC 
CMP 
BNE 
CMPB 
BEO 

TYPE 

SGTSWR: TYPE 
MOV 
TYPOC 
TYPE 
CLR 
CLR 
TSTB 
BPL 

M0V8 
BIC 



19$: 
7$: 



9S: 



20$: 



CMP 

BNE 

TYPE 

ADD 

BR 



(1) 


014672 


021627 


000015 




10$: 


CMP 


(1) 


014676 


001022 








BNE 


(1) 


014700 


005766 


000004 






TST 


(1) 


014704 


001403 








BEO 


(1) 


014706 


016677 


000002 


164124 




MOV 


(1) 


014714 


062706 


000006 




11$: 


ADD 


(1) 


014720 


104401 


001075 




14$: 


TYPE 


(1) 


014724 


123727 


001035 


000001 




CMPB 


(1) 


014732 


001003 








BNE 


(1) 


014734 


012777 


000100 


164102 




MOV 


(1) 


014742 


000002 






15$: 


RTI 


(1) 


014744 


004737 


013746 




16$: 


JSR 



#SWREG.SWR 
15$ 
a$TKS 
15$ 

a$TK8,-(SP) 
**C177.(SP) 
*7,(SP)* 
15$ 

$AUT0B,#1 
15$ 

,$CNTLG 

.$MSWR 

SWREG.-(SP) 

.$MNEW 

-(SP) 
-(SP) 
a$TKS 
7$ 

a$TK8,-(SP) 
#*C177,(SP) 



(SP),#25 
10$ 

.$CNTLU 

#6.SP 

19$ 



(SP),#15 
16$ 

4(SP) 
11$ 

2(SP).aSWR 
#6,SP 
,$CRLF ^ 
$INTAG,#1 
15$ 

#100,a$TKS 
PC,$TYPEC 



;;IS THE SOFT-SWR SELECTED? 
;. -BRANCH IF NO 
;;CHAR THERE? 

;:IF NO, DON'T WAIT AROUND 

;;SAVE THE CHAR 

:;STRIP-OFF THE ASCII 

;;IS IT A CONTROL G? 

;;N0. RETURN TO USER 

;:ARE WE RUNNING IN AUTO-MODE? 

; .-BRANCH IF YES 

;;ECHO THE CONTROL-G CG) 

.-.-TYPE CURRENT CONTENTS 

.-.-SAVE SWREG FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCIKALL DIGITS) 

:;PROMPT FOR NEW SWR 

;; CLEAR COUNTER 

;;THE NEW SWR 

;;CHAR THERE? 

;;IF NOT TRY AGAIN 

.-.-PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 



;;IS IT A CONTROL-U? 
.-.-BRANCH IF NOT 
.-.-YES, ECHO CONTROL-U (*U) 
;; IGNORE PREVIOUS INPUT 
; .-LET'S TRY IT AGAIN 



;;IS IT A <CR>? 
; .-BRANCH IF NO 
.YES. IS IT THE FIRST CHAR? 
; .-BRANCH IF YES 
:.-SAVE NEW SWR 

CLEAR UP STACK 
;;ECHO <CR> AND <LF> 
;. -RE-ENABLE TTY KBD INTERRUPTS? 
; .-BRANCH IF NOT 

;;RE-ENABLE TTY KBD INTERRUPTS 
; .-RETURN 
;;ELHO CHAR 



I 



CJKD 
CJKD 



AO n/238 SLU LTC REPR DMG 
A.P11 20-QCT-81 16:08 



DNMAC X24. 07-563 02-FEB-82 
TTY INPUT ROUTINE 



6 

16:42 



PAGE 17-1 



S£0 0073 



0K750 
0U754 
014756 
014762 
014764 
014770 
014774 
014776 
015000 
015002 
015004 
015010 
015014 
015016 
015022 



021627 
002420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
0S6616 
000707 
104401 
000720 



000060 
000067 

000060 
000002 



000002 

1 nnh 

0010^4 



17$: 



18$: 



.OSABL 





(SP) .#60 


BLT 


18$ 


CMP 


(SP) ,*67 


BGT 


18$ 


8IC 


#60, (SP)* 


TST 


2(SP) 


BEO 


17$ 


ASL 


(SP) 


ASL 


(SP) 


ASL 


(SP) 


INC 


?(SP) 


BIS 


-2(SP),(SP) 


BR 


7$ 


TYPE 


.$QUES 


BR 


^0$ 


.SB 





;CHAft < 0? 
.•BRANCH IF 
;;CHAR > 7? 
.•BRANCH IF 



YES 
YES 



;;STRIP-OFF ASCII 
;;IS THIS THE FIRST CHAR 
•BRANCH IF YES 
;;N0, SHIFT PRESENT 
;; CHAR OVER TO MAKE 
;: ROOM FOR NEU ONE. 
;;KEEP COUNT OF CHAR 
;;SET IN NEU CHAR 
;;6ET THE NEXT ONE 
;;TYPE ?<CR><LF> 
SIMULATE CONTROL -U 



**************************************************************** 

'*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
•CALL: 

• RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 

• RETURN HERE ;;CHARACTER IS ON THE STACK 

• ;;WITH PARITY BIT STRIPPED OFF 



015024 


011646 






$RDCHR: 


MOV 


(SP),-(SP) 


;;PUSH DOWN THE PC 


015026 


016666 


000004 


000002 




MOV 


4(SP).2(SP) 


;;SAVE THE PS 


015034 


105777 


164004 




1$: 


TSTB 


a$TKS 


;;UAIT FOR 


015040 


100375 








BPL 


1$ 


;;A CHARACTER 


015042 


1 1 7766 


164000 


000004 




MOVB 


a$TKB.4(SP) 

#»C<177>-4(SP) 

4(SP),#23 


.-.-READ THE TTY 


015050 


042766 


177600 


000004 




BIC 


;;GET RID OF JUNK IF ANY 


015056 


026627 


000004 


000023 




CMP 


;;IS IT A CONTfiOL-S? 
;; BRANCH IF NO 


015064 


001013 








BNE 


3$ 


015066 


105777 


163752 




2$: 


TSTB 


a$TKS 


;;UAIT FOR A CHARACTER 


015072 


100375 








BPL 


2$ 


;;LOOP UNTIL ITS THERE 


015074 


117746 


163746 






MOVB 


a$TKB,-(SP) 


;;GET CHARACTER 


015100 


042716 
0226C7 


177600 






BIC 


#*C177,(SP) 


;;MAKE IT 7-BIT ASCII 


015104 


000021 






CMP 


(SP)+,#21 


;;IS IT A CONTROL-0? 


015110 


001366 








BNE 


2$ 


;;IF NOT DISCARD IT 


015112 


000750 








BR 


1$ 


;;YES, RESUME 


015114 


026627 


000004 


000021 


3$: 


CMP 


4(SP),#$X0N 


;:IS IT A RANDOM XON? 
; .-BRANCH IF YES 


015122 


001744 








BEO 


1$ 


015124 


026627 


000004 


000140 




CMP 


4(SP).#140 


;;IS IT UPPER CASE? 


015132 


002407 








BLT 


4$ 


; .-BRANCH IF YES 


015134 


026627 


000004 


000175 




CMP 


4{SP),#175 


;;IS IT A SPECIAL CHAR? 
; .-BRANCH IF YES 


015142 


003003 








BGT 


4$ 


015144 


042766 


000040 


000004 




BIC 


#40.4(SP) 


.-.MAKE IT UPPER CASE 


015152 


000002 






4$: 


RTI 




;;G0 BACK TO USER 



.-RANOOl 
:RAN001 



*************************************************************** 



;*THIS 
.-•CALL 



ROUTINE WILL INPUT A STRING FROM THE TTY 



RDLIN 

RETURN HERE 



.•INPUT A STRING FROM THE TTY 

.•ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
.-TERMINATOR WILL BE A BYTE OF ALL O'S 



CJKD 

CjrD 



AO n/258 SLL LTC REPR DIAG 
A.P11 20-0CT-81 16:08 
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SEO 0074 



2688 



015154 
015156 
015162 
015166 
015170 
015172 
015174 
015200 
015202 
015206 
015210 
015214 
015220 
015224 
015226 
015232 
015236 
015240 
015242 
015250 
015256 
015260 
015261 
015262 
015272 
015277 
015304 
015312 
015315 
015322 



010346 
012703 
022703 
101405 
104410 
112613 
122713 
001003 
104401 
000763 
111337 
104401 
122723 
001356 
105063 
104401 
0^2603 
011646 
016666 
012766 
000002 

000 

000 
000010 
052536 

136 
005015 
020075 

040 
036440 



015262 
015272 



000177 

001074 

015260 
015260 
000015 

\mn 

001076 



000004 000002 
015262 000004 



005015 
006507 
053523 
000 
047040 
000040 



000 
000012 
020122 



SRDLIN: 

1$: 

2$: 



lOS: 

4S: 

3S: 



9S: 

STTYIN 
SCNTLU 
SCNTLG 
SMSUR: 



nov 

NOV 
CMP 

BLOS 
RDCHR 

novB 
cw>a 

BNE 

TYPE 

BR 

MOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

NOV 

NOV 

NOV 

NOV 

RTI 

.BYTE 

.BYTE 

.BLKB 

.ASCI2 

.ASCIZ 

.ASCI2 



R3.-(SP) 
#$TTYIN,R3 
#$TTYIN*8.,R3 
4S 

(SP)*,(R3) 
*1 77, (R3) 
3$ 

,$QUES 
1$ 

(R3).9$ 
,9$ 

#15. (R3)* 
2$ 

-1(R3) 
.$LF , 
(SP)*.R3 
(SP).-(SP) 
4(SP).2(SP) 
mTYIN,4(SP) 

0 
0 
8. 

/•U/<15><12> 
/*G/<15><12> 
<15><12>/SWR = / 



053505 SNNEU: .ASCIZ / NEW = / 



::SAVE R3 
:;GET ADDRESS 
; .'BUFFER FULL? 
;;BR IF YES 

;;G0 READ ONE CHARACTER FRON THE TTY 
;;GET CHARACTER 
;;IS IT A RUBOUT 
;;SKIP IF NOT 
• 'TYPE A 

••CLEAR THE BUFFER AND LOOP 
.-.-ECHO THE CHARACTER 

;; CHECK FOR RETURN 
;;LOOP IF NOT RETURN 
;; CLEAR RETURN (THE 15) 
;;TYPE A LINE FEED 
; .-RESTORE R3 

;. -ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

; .'RETURN 

.•.STORAGE FOR ASCII CHAR. TO TYPE 
;; TERMINATOR 

; .-RESERVE 8 BYTES FOR TTY INPUT 
.-.'CONTROL 
.'.'CONTROL "6" 



CJICDIAO 11/238 SLU LTC REPR DIA6 
CJHDIA.P11 20-0CT-81 16:08 



2690 
2691 
2692 

(1 
(2 
( 



DN«AC X24. 07-563 
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SEO 0075 



(3 
(3 
C3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(1 
(3 
(1 
(3 
(3 
(3 
2693 



.S8TTL TRAP DECODER 



015326 
015330 
015334 
015336 
015340 
015342 
015346 



015350 
015352 
015360 



010046 
016600 
005740 
111000 
006300 
016000 
000200 



015362 
01 5364 
015366 
015370 
015372 
015374 



015350 
013534 
014114 
014070 
014130 
014316 



015376 014612 



015400 
015402 
015404 



014542 
015024 
015154 



•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 



000002 



015362 



$TRAP: MOV 


R0,-(SP) 


nov 


2(SP).R0 


TST 


-(fiO) 


MOVB 


(RO).RO 


ASL 


RO 


10V 


$TRPAD(RO).RO 


RTS 


RO 



;;SAVE RO 

;;GET TRAP ADDRESS 

.-.■BACKUP BV 2 

;;6ET RIGHT BYTE OF TRAP 

.-.-POSITION FOR INDEXING 

.-.-INDEX TO TABLE 

;;G0 TO ROUTINE 



011646 

016666 000004 
000002 



000002 



.-.-THIS IS USE TO HANDLE THE "GETPRI" rWCRO 
$TRAP2 



MOV 
MOV 
RTI 



(SP).-(SP) 
4(SP),2(SP) 



;;MOV£ THE PC DOWN 
::MOVE THE PSW DOWN 
; .-RESTORE THE PSW 



.S8TTL TRAP TABLE 



.-•THIS TABLE CONTAJNS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.-•BY THE "TRAP" INSTRUCTION. 



ROUTINE 



ITRPAD; 



.WORD 


$TRAP2 


$TYP£ 


* 


;CALL=TYPE 


SifPOC 


• 


;CALL=TYPOC 


STYPOS 


# 


;CALL=TYPOS 


STYPON 


9 


;CALL=TYPON 


STYPDS 


* 


;CALL=TYPDS 


SGTSWR 


• 


;CALL=6TSWR 


SCKSWR 


• 


;CALL=CKSWR 


SRDCHR 




;CALL=RDCHR 


$RDLIN 


• 


;CALL=RDLIN 



TRAP+1 (104401) 
TRAP+2( 104402) 
TRAP*3( 104403) 
TRAP*4( 104404) 
TRAP*5( 104405) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



TRAP+6( 104406) GET SOFT-SWR SETTING 



TRAP+7( 104407) 
TRAP+1 0(1 04410) 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 



TRAP+1 1(104411) TTY TYPEIN STRING ROUTINE 



'JttDIAC 11/258 SLU LTC REPR DIAG 
'■JK01A.P11 20-0CT-81 16:08 



2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
270A 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
27U 
2715 
2716 
2717 
2718 
2719 
2720 
2721 

im 

2721 
272U 
2725 
2726 
2727 
272% 
2729 
2730 
2731 
2752 
2733 
273A 
2735 
2736 
2737 
2738 
2739 
27A0 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 



L 6 
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ECHO TEST 

.S8TTL ECHO TEST 



SEO 0076 



01 5406 
015414 
015422 
015430 
015432 
015436 
015440 
015444 
015446 
015454 
015460 
015462 
015470 
015474 
01 5476 
015502 
015504 
015506 
015512 
015514 
015516 
015520 
015522 
015526 
015530 
015532 
015534 
015536 
015542 
015544 
015550 
015554 
015556 
015562 
015564 
015566 



01273^ 
012737 
032777 
001403 
012703 
000402 
012703 
000005 
112773 
105773 
100375 
117373 
017300 
100023 
052701 
030100 
001403 
004737 
015616 
006301 
030100 
001403 
004737 
015627 
006301 
030100 
001403 
004737 
015641 
042700 
022700 
001337 
004737 
015654 
000000 
000707 



000176 
000174 
000020 

002750 

002760 

000052 
000000 

000002 
000002 

010000 
015570 



015570 



015570 

000200 
000003 

015570 



' **** 



.••THIS 
;*0N E 
.••THE 
.••TEST 
******** 



001040 
001042 
163410 



000006 



000006 





HUV 




HUV 








DC U 




nu V 




RO 

On 


1 C • 


nu V 


c* • 








J* • 


TSTfi 




RPI 




nu wD 




MOV 




RPI 








BIT 












nPAR 


4S- 


ASL 




BIT 




BFQ 




JSfi 




MFR 


5$: 


ASL 




BIT 




BEQ 




JSR 




noR 


6S: 


SIC 




CMP 




BNE 




JSR 




MSTOP 




HALT 




BR 



ROUTINE WILL ECHO ANV CHARACTER TYPED 

ITHER SLUl OR SLU2. DEFAULT IS TO THE CONSOLE DEVICE SLUl . 
TEST IS HALTED BY TYPING A CONTROL-C 

CAN BE RESTARTED AFTER HALTING 8Y JUST CONTINUING 
*************************************************** 

fSUREG.SWR ;SET UP FOR SOFTWARE SWITCH REGISTFR 

*DISPREG, DISPLAY ;AND DISPLAY REGISTER 

#81 T4. aSWR .-CHECK IF BIT4 SET IN SWITCH REG 

1$ ; IF NOT THEN SELECT SLUl 

#RCSR. R3 ;IF BIT4 SET THEN SELECT SLU2 
2$ 

#CRCSR. R3 



#'*.a6(R3) 

a(R3) 

3$ 

a2(R3),a6(R3) 

a2(R3),R0 

6$ 

/r8IT12,Rl 

R1.R0 

4S 

PC .MSG 
R1 

R1,R0 
5$ 

PC .MSG 

R1 

R1.R0 
6S 

PC, MSG 

#8IT7,R0 

#3.R0 

3$ 

PC .MSG 



ECHO 



.•SELECT SLUl CTHIS IS DEFAULT DEVICE) 
.•CLEAR EVERYTHING 
.•TRANSMIT PROMPT "•" 
.-WAIT FOR INPUT 

.•ECHO INPUT 

.•STORE INPUT 

;BR IF "tRROR'riOT SET 

.-SET PARITY ERROR TEST MASK 

.•CHECK FOR PARITY ERROR FLAG 

;8R IF NOT SET 

.•REPORT PARITY ERROR 

.•SHIFT MASK TO TEST "TR" FLAG 
.•TEST FOR FRAMING ERROR FLAG 
;8R IF NOT SET 
.-REPSORT FRAMING ERROR 

.•SHIFT MASK TO TEST "OR" FLAG 
.-TEST FOR OVERFLOW ERROR 
;BR IF NOT SET 
.-REPORT OVERFLOW ERROR 

.-CLEAR ANY PARITY BIT 
.-WAS INPUT CONTROL-C 
;8R IF IS NOT 
.-REPORT PROGRAM STOP 

;END OF TEST HALT 
.-AFTER END OF TEST HALT 

PRESS CONTINUE TO RESTART ECHO TEST 



015570 


013600 




MSG: 


MOV 


a(SP)+.RO 


.-PICK UP MESSAGE POINTER 


015572 


062746 


000002 




ADD 


#2.-(SP) 


.-ADJUST RETURN PC 


015576 


105773 


000004 


WAIT: 


TST8 


a4(R3} 


.-WAIT FOR XMIT DONE 


015602 


100375 






BPL 


WAIT 




015604 


112073 


000006 




M0V8 


(R0)*.a6(R3) 


.-SEND CHARACTER 


015610 


105710 






TST8 


(RO) 


:IS THIS END OF MESSAGE? 


C15612 


001371 






BNE 


WAIT 


;BR IF NOT 


015614 


000207 






RTS 


PC 


.-RETURN 


015616 


005015 


040520 


044522 HPAR: 


.ASCIZ 


<CR><LF>/PARITY/ 


015624 


054524 


000 











CJtcDIAO 11/?58 SLU LTC REPR DIA6 
CJKDIA.P11 20-OCT-81 16:08 



2750 
2751 
2752 



015627 
015634 
015641 
015646 
015654 
015662 



015 
044515 

015 
043122 
005015 

000 



043012 
043516 
047412 
047514 
052123 



040522 
000 
042526 
000127 
050117 



DNMAC X24. 07-563 
ECHO TEST 



n 6 

02-FEB-82 16:42 



(1FR: .ASCIZ <CR><LF>/FRAHING/ 
HOR: .ASCIZ <CR><LF>/OVERFLOW/ 
HSTOP: .ASCIZ <CR><LF>/STOP/ 



PAGE 19-1 



SEO 0077 



CJKDIAO M/258 SLU LTC REPR DIA6 
CJKDIA.PM 20-OCT-81 16:08 



2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2771 
277k 
277S 
277b 
2777 
2776 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 



015664 
015672 
015700 
015706 
015710 
015714 
015716 
015722 
015724 
015730 
015734 
015740 
015742 
015746 
015750 
015752 
015754 

015760 
015762 
015766 
015770 
015774 
015776 

016000 
016004 
016006 



015664 



012737 
012737 
032777 
001403 
012703 
000402 
012703 
000005 
012701 
012700 
105773 
100375 
010173 
105201 
005300 
001370 
004737 

001075 
105773 
100404 
032701 
001353 
000754 

005073 
000000 
000726 



000176 
000174 
000020 

002750 

002760 

000040 
000040 
000004 

000006 



015570 

000000 
000200 

000002 



DNMAC X24. 07-563 
ECHO TEST 



.EVEN 



N 6 

02-^EB-e2 16:42 PAGE 20 



SEu 0078 



001040 
001042 
163132 



.SBTTL TERMINAL OUTPUT TEST 

..*••••*•♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦♦♦••♦♦♦♦♦♦•♦♦•♦♦♦*♦♦*♦♦♦♦♦♦♦♦♦**••* 

•THIS ROUTINE WILL OUTPUT ALL WRITABLE CHARACTERS FOR THE 
.••THE OCTAL CODE 040 --> 377 
.••32 CHARACTERS ARE PRINTED ON EACH LINE 
.••THE PATTERN IS REPEATED EVERY THREE LINES 



;SET UP FOR SOFTWARE SWITCH REGISTER 

;AND DISPLAY REGISTER 

.•CHECK IF BIT4 SET IN SWITCH REG 

;IF NOT THEN SELECT SLUl 

;IF BIT4 SET THEN SELECT SLU2 

.•SELECT SLUl (THIS IS DEFAULT DEVICE) 
.•CLEAR THE WORLD 
;LOAD FIRST WRITABLE CHARACTER 
;LOAO CHAR COUNT PER LINE 
;WAH FOR DONE 

.•TRANSMIT A CHARACTER 
.•INCREMENT CHARACTER CODE 
.DECREMENT CHAR COUNT 
;BR IF LINE NOT COMPLETF 
;SSUE CR.LINE FEED 



;ANY CHARACTER RECEIVED? 
.•BR IF YES 

.•FINISHED ONE PASS OF WRITABLE CHARACTERS? 
*BR IF YES 

)lF NOT WRITE NEXT LINE 

.■CLEAR RECEIVER 
.-STOP TEST 

.•RESTART TEST IF CONTINUED 



OUTTST: 


MOV 


fSWREG.SWR 


MOV 


#DISPREG, DISPLAY 




BIT 


#BIT4. aSWR 




BEQ 


1S 




MOV 


*RCSR, R3 




BR 


2S 


1$: 


MOV 


#CRCSR. R3 


2S: 


RESET 




3$: 


MOV 


^40, R1 


4$: 


MOV 


#40. RO 


5$: 


TSTB 


94 (R3; 




BPL 


5$ 




MOV 


R1.a6(R3) 




INCB 


R1 




DEC 


RO 




BNE 


5$ 




JSR 


PC .MSG 




SCRLF 






TSTB 


a(R3) 




BMI 


6S 




BIT 


*8IT7,R1 




BNE 


3$ 




BR 


4$ 


6$: 


CLR 


a2(R3) 




HALT 






BR 


OUTTST 



■.KDIAO n/23B SLU LTC REPR DIAG 
JKDIA.Pn ^O-OCT-Sl 16:08 



2797 
2798 
2799 



2800 



2801 



2802 



2805 



2804 



2805 



2806 



^807 



016010 
016016 
016024 
016032 
016040 
016046 
016052 
016060 
016066 
016074 
016102 
016110 
016111 
016116 
016124 
016132 
016140 
016146 
016150 
016156 
016164 
016172 
016200 
016206 
016214 
016222 
016230 
016236 
016244 
016252 
016254 
016262 
016270 
016276 
016304 
016312 
016320 
016324 
016332 
016340 
016346 
016354 
016362 
016370 
016372 
016400 
016406 
016414 
016422 
016430 
016436 
016444 
016452 
016460 



046123 
051503 
042516 
051440 
052111 
042523 
046123 
051503 
020104 
042522 
051440 
000 
123 
041122 
042111 
051040 
020116 
000103 
040503 
020124 
044502 
020106 
052040 
042522 
044504 
020124 
020122 
047440 
030525 
000122 
044502 
020106 
052040 
047516 
040505 
042524 
042523 
046123 
044515 
042524 
042524 
044124 
051117 
000067 
040503 
020124 
044502 
020106 
052040 
040503 
020124 
020122 
047440 
030525 



030525 
020122 
047040 
052105 
020110 
000124 
030525 
020122 
047516 
052524 
054523 

052514 
043125 
047040 
052105 
051523 

020116 
042523 
031124 
046123 
051503 
042523 
020104 
046103 
044502 
020106 
052040 

033124 
046123 
051503 
020124 
020122 
020122 
000124 
030525 
020124 
051122 
020104 
050040 
052111 

020116 
042523 
033124 
046123 
051503 
020116 
046103 
044502 
020106 
052040 



052040 
047504 
052117 
053440 
042522 

051040 
044504 
020124 
047122 
041516 

020061 
042040 
052117 
051125 
047131 

047516 
020124 
047440 
030525 
000122 
020124 
047516 
040505 
031124 
046123 
051503 

047440 
030525 
020122 
046103 
043101 
042522 

054040 
047111 
050125 
044527 
044522 
020131 

047516 
020124 
047440 
030525 
000122 
047516 
040505 
033124 
046123 
051503 



B 7 

DNHAC X24. 07-563 02-FEB-82 16:42 PAGE 21 
TERMINAL OUTPUT TEST 



E«5: .ASCJZ /SLUl TCSR DONE NOT SET WITH RESET/ 



En6: .ASCIZ /SLU1 RCSR DID NOT RETURN SSYNC/ 



EH7: .ASCIZ /SLUl RBUF DID NOT RETURN SSYNC/ 



EM11: .ASCIZ /CAN NOT SET BIT2 OF SLUl TCSR/ 



E«13: .ASCIZ /RESET DID NOT CLEAR BIT2 OF SLUl TCSR/ 



SfQ 0079 



EMU: .ASCIZ /BIT6 OF SLUl TCSR NOT CLEAR AFTER RESET/ 



EM15: .ASCIZ /SLUl XMIT INTERRUPTED WITH PRIORITY 7/ 



EM16: .ASCIZ /CAN NOT SET BIT6 OF SLUl TCSR/ 



EMI 7: .ASCIZ /CAN NOT CLEAR 81 T6 OF SLUl TCSR/ 



'JKDIAO 1V?38 SLU LTC REPR DIAG 
CJHD1A.P11 20-0CT-81 16:08 



DNMAC X24. 07-563 02-FEB-82 
TERMINAL OUTPUT TEST 



7 

16:42 



PAGE 21-1 



SEO 0080 



2808 



2809 



2810 



2811 



2812 



2813 



28U 



2815 



2A16 



016466 
016470 
016476 
016504 
016512 
016520 
016526 
016534 
016536 
016544 
016552 
016560 
016566 
016574 
016602 
016606 
016614 
016622 
016630 
CI 6636 
016644 
016652 
016660 
016666 
016674 
016702 
016710 
016716 
016724 
016732 
016740 
016746 
016750 
016756 
016764 
016772 
017000 
01 7006 
017014 
017022 
017023 
017030 
017036 
017044 
017052 
017060 
017066 
01 7074 
017102 
017110 
017116 
017123 
017130 
017136 
017144 
017152 



000122 
042522 
044504 
020124 
020122 
047440 
030525 
000122 
044502 
020106 
051040 
047516 
040505 
042524 
042523 
046123 
053103 
042524 
020124 
050040 
052111 
040503 
020124 
044502 
020106 
051040 
040503 
020124 
020122 
047440 
030525 
000122 
040503 
020124 
020122 
047440 
030525 
020122 
051040 
000 
123 
042522 
051105 
020105 
020122 
042522 
044504 
020124 
020122 
051040 
047504 
122 
043516 
020061 
042040 
052117 



042523 
020104 
046103 
044502 
020106 
052040 

033124 
046123 
051503 
020124 
020122 
020122 
000124 
030525 
020122 
051122 
044527 
044522 
020131 
020116 
042523 
033124 
046123 
051503 
020116 
046103 
044502 
020106 
051040 

020116 
046103 
044502 
020106 
051040 
044527 
051505 

052514 
042503 
042040 
042516 
042523 
042523 
020104 
046103 
046123 
053103 
042516 
040505 
051440 
041122 
042111 
041440 



020124 
047516 
040505 
033124 
046123 
051503 

047440 
030525 
020122 
046103 
043101 
042522 

051040 
047111 
050125 
044124 
051117 
000067 
047516 
020124 
047440 
030525 
000122 
047516 
040505 
033124 
046123 
051503 

047516 
040505 
033124 
046123 
051503 
044124 
052105 

020061 
053111 
047117 
042526 
000124 
020124 
047516 
040505 
030525 
020122 
000 
044504 
052514 
043125 
047040 
042514 



EM20: 



.ASCIZ /RESET DID NOT CLEAR BIT6 OF SLUl TCSR/ 



E«21: . ASCIZ /8IT6 OF SLUl RCSR NOT CLEAR AFTER RESET/ 



EM22: 



EM23: 



EM24: 



E«25: 



EM26: 



EM27: 



EM30: 



.ASCIZ /SLUl RCVR INTERRUPT WITH PRIORITY 7/ 



.ASCIZ /CAN NOT SET BIT6 OF SLUl RCSR/ 



.ASCIZ /CAN NOT CLEAR 81 T6 OF SLUl RCSR/ 



.ASCIZ /CAN NOT CLEAR BIT6 OF SLUl RCSR WITH RESET/ 



.ASCIZ /SLUl RECEIVER DONE NEVER SET/ 



.ASCIZ /RESET DID NOT CLEAR SLUl RCVR DONE/ 



.ASCIZ /READING SLUl R8UF DID NOT CLEAR RCVR DONE/ 



■jtcDlAO n/25B SLU LTC REPR DIAG 
JKDIA.Pn 20-OCT-81 16:08 



2817 



2818 



2819 



2820 



2821 



2822 



2823 



2824 



2825 



017160 
017166 
017174 
017175 
017202 
017210 
017216 
01 722A 
017232 
017234 
017242 
017250 
017256 
017264 
017272 
017273 
017300 
017306 
0173U 
017322 
017330 
017336 
017344 
017345 
017352 
017360 
017366 
017374 
017402 
017410 
017413 
017420 
017426 
017434 
017442 
017450 
017455 
01 7462 
017470 
017476 
017504 
017512 
017514 
017522 
017530 
017536 
017544 
017552 
017553 
017560 
017566 
017574 
017602 
017610 
017616 
017623 



051101 
020122 
000 
123 
041524 
042111 
051040 
020116 
000103 
046123 
052502 
020104 
042522 
051440 
000 
123 
041524 
047117 
020124 
042522 
044124 
020106 
000 
123 
041524 
047117 
020124 
043101 
051124 
052111 
123 
041524 
047117 
020124 
044527 
051505 
123 
041522 
042111 
051040 
020116 
000103 
046123 
052502 
020104 
042522 
051440 
000 
102 
043117 
020062 
047040 
042514 
052106 
051505 
103 



051040 
047504 

052514 
051123 
047040 
052105 
051523 

031125 
020106 
047516 
052524 
054523 

052514 
051123 
020105 
046103 
020104 
052040 
05250^ 

052514 
051123 
020105 
042523 
042524 
047101 
000 
052514 
051123 
020105 
042523 
044124 
052105 
052514 
051123 
047040 
052105 
051523 

031125 
020106 
047516 
052524 
054523 

052111 
051440 
041524 
052117 
051101 
051105 
052105 
047101 



053103 
042516 

020062 
042040 
052117 
051125 
047131 

052040 
044504 
020124 
047122 
041516 

020062 
042040 
047516 
040505 
044527 
052502 
046114 

020062 
042040 
047516 
020124 
020122 
046523 

020062 
042040 
047516 
020124 
051040 
000 
020062 
042040 
052117 
051125 
047131 

051040 
044504 
020124 
047122 
041516 

020060 
052514 
051123 
041440 
040440 
051040 
000 
047040 



D 7 

DM«1AC X24. 07-563 02-FEB-82 16:42 PAGE 21-2 
TERMINAL OUTPUT TEST 



EH31: .^SCU /SLU2 TCSR DID NOT f,ETURN SSYNC/ 



EM32: .ASCII /SLU2 TBUF DID NOT RETURN SSYNC/ 



EM33: .ASCIZ /SLU2 TCSR DONE NOT CLEARED WITH T8UF FULL/ 



SEQ 0081 



E«34: .ASCIZ /SLU2 TCSR DONE NOT SET AFTER TRANSMIT/ 



E«35: .ASCIZ /SLU2 TCSR DONE NOT SET UJTH RESET/ 



EM36: .ASCIZ /SLU2 RCSR DID NOT RETURN SSYNC/ 



EM37; .ASCIZ /SLU2 RBUF DID NOT RETURN SSYNC/ 



EM40; .ASCIZ /8IT0 OF SLU2 TCSR NOT CLEAR AFTER RESET/ 



EM41: .ASCIZ /CAN NOT SET BITO OF SLU2 TCSR/ 



JKb\^Q SLU LTC REPP DJAG 

JICDIA.P11 20-OCI-81 16:08 



E 7 

DN«AC X24. 07-563 02-FEB-82 16:42 PAGE 21-3 
TERMINAL OUTPUT TEST 



SEQ 008^ 



2826 



2827 



2828 



2829 



2830 



2831 



2832 



2833 



017630 

017636 

0176A4 

017652 

017660 

017661 

017666 

017674 

017702 

017710 

017716 

017721 

01 7726 

017734 

017742 

017750 

017756 

017764 

017767 

017774 

020002 

020010 

020016 

020024 

020032 

020037 

020044 

020052 

020060 

020066 

020074 

020102 

020105 

020112 

020120 

020126 

020134 

020142 

020143 

020150 

020156 

020164 

020172 

020200 

020203 

020210 

020216 

020224 

020232 

020240 

020246 

020251 

020256 

020264 

020272 

020300 



052117 
041040 
043117 
020062 

000 

103 
052117 
051101 
020060 
052514 
051123 

122 
042040 
052117 
051101 
020060 
052514 
051123 

102 
043117 
020062 
047040 
042514 
052106 
051505 

123 
046530 
052116 
052120 
052111 
047511 
033440 

103 
052117 
041040 
043117 
020062 

000 

103 
052117 
051101 
020066 
052514 
051123 

122 
042040 
052117 
051101 
020066 
052514 
051123 

102 
043117 
020062 
047040 
042514 



051440 
052111 
051440 
041524 

047101 
041440 
041040 
043117 
020062 

000 
051505 
042111 
041440 
041040 
043117 
020062 

000 
052111 
051440 
041524 
052117 
051101 
051105 
052105 
052514 
052111 
051105 
042105 
020110 
044522 

000 
047101 
051440 
052111 
051440 
041524 

047101 
041440 
041040 
043117 
020062 

000 
051505 
042111 
041440 
041040 
043117 
020062 

000 
052111 
051440 
041522 
052117 
051101 



052105 
020060 
052514 
051123 

047040 
042514 
052111 
051440 
041524 

052105 
047040 
042514 
052111 
051440 
041524 

020066 
052514 
051123 
041440 
040440 
051040 
000 
020062 
044440 
052522 
053440 
051120 
054524 

047040 
052105 
020066 
052514 
051123 

047040 
042514 
052111 
051440 
041524 

052105 
047040 
042514 
052111 
051440 
041524 

020066 
052514 
051123 
041440 
040440 



EM42: .ASCI2 /CAN NOT CLEAR BJTO OF SLU2 TCSR/ 



EM43: .ASCI2 /RESET DID NOT CLEAR 81 TO OF SLU2 TCSR/ 



EM44: .ASCI2 /8IT6 OF SLU2 TCSR NOT CLEAR AFTER RESET/ 



E«45: .ASCI2 /SLU2 XMIT INTERRUPTED WITH PRIORITY 7/ 



EM46: .ASCIZ /CAN NOT SET BIT6 OF SLU2 TCSR/ 



EM47: .ASCIZ /CAN NOT CLEAR BIT6 OF SLU2 TCSR/ 



E«50: .ASCIZ /RESET DID NOT CLEAR BIT6 OF SLU2 TCSR/ 



EM51: . ASCIZ /BIT6 OF SLU2 RCSR NOT CLEAR AFTER RESET/ 



'JKDIAO 11/238 SLU LTC REPR DIAG 
iJKDlA.Pn 20-OCT-81 16:08 



F 7 

DNMAC X24. 07-563 02-FEB-82 16:42 
TERflJNAL OUTPUT TEST 



PAGE 21-4 



SEQ 0083 



283^ 



2835 



2836 



2837 



2838 



2839 



2840 



2841 



2842 



020306 
020314 
020321 
020326 
020334 
020342 
020350 
020356 
020364 
020365 
020372 
020400 
020406 
020414 
020422 
020423 
020430 
020436 
020444 
020452 
020460 
020463 
020470 
020476 
020504 
020512 
020520 
020526 
020534 
020536 
020544 
020552 
020560 
020566 
020573 
020600 
020606 
020614 
020622 
020630 
020636 
020644 
020652 
020660 
020666 
020674 
020702 
020710 
020716 
020724 
020732 
020740 
020741 
020746 
020754 
020762 



052106 
051505 

123 
041522 
052116 
052120 
020110 
044522 
000 
103 
052117 
041040 
043117 
020062 
000 
103 
052117 
051101 
020066 
052514 
051123 
103 
052117 
051101 
020066 
052514 
051123 
020110 
000124 
046123 
041505 
020122 
047040 
051440 
122 
042040 
052117 
051101 
020062 
042040 
042522 
020107 
051040 
044504 
020124 
020122 
042040 
045514 
020104 
042522 
051440 
000 
102 
043117 
047040 
042514 



051105 
052105 
052514 
051126 
051105 
053440 
051120 
054524 

047101 
051440 
052111 
051440 
041522 

047101 
041440 
041040 
043117 
020062 
000 
047101 
041440 
041040 
043117 
020062 
053440 
042522 

031125 
044505 
047504 
053105 
052105 
051505 
042111 
041440 
051440 
041522 
047117 
042101 
046123 
052502 
020104 
046103 
041522 
047117 
020123 
047516 
052524 
054523 

052111 
046040 
052117 
051101 



051040 
000 
020062 
044440 
052522 
052111 
047511 
033440 

047040 
052105 
020066 
052514 
051123 

047040 
042514 
052111 
051440 
041522 

047040 
042514 
052111 
051440 
041522 
052111 
042523 

051040 
042526 
042516 
051105 
000 
052105 
047040 
042514 
052514 
051126 
000105 
047111 
031125 
020106 
047516 
040505 
051126 
000105 
044504 
020124 
047122 
041516 

020066 
051513 
041440 
040440 



EH52: .ASCIZ /SLU2 RCVR INTERRUPT WITH PRIORITY 7/ 



E«53: 



EM54; 



EM55: 



EM56: 



EMS 7: 



EM60: 



EM61 



EM62: 



.ASCIZ /CAN NOT SET BIT6 OF SLU2 RCSR/ 



.ASCIZ /CAN NOT CLEAR BIT6 OF SLU2 RCSR/ 



.ASCIZ /CAN NOT CLEAR BIT6 OF SLU2 RCSR WITH RESET/ 



.ASCIZ /SLU2 RECEIVER DONE NEVER SET/ 



.ASCIZ /RESET DID NOT CLEAR SLU2 RCVR DONE/ 



.ASCIZ /READING SLU2 R8UF DID NOT CLEAR RCVR DONE/ 



.ASCIZ /LKS DID NOT RETURN SSYNC/ 



.ASCIZ /8IT6 OF LKS NOT CLEAR AFTER RESET/ 



rjKOIAO n/23B SLU wTC REPR DIA6 
rjKDIA.pn 20-0CT-81 16:08 



2843 



?844 



2845 



2846 



2847 



2848 



2849 



2850 



2851 



2852 



020770 

020776 

021003 

021010 

021016 

021024 

021032 

021040 

021041 

021046 

021054 

021062 

021070 

021071 

021076 

021104 

021112 

021120 

021123 

021130 

021136 

021144 

021152 

021160 

021163 

021170 

021176 

021204 

021212 

021220 

021223 

021230 

021236 

021244 

021252 

021255 

021262 

021270 

021276 

021304 

021306 

021314 

021322 

021330 

^21336 

021344 

021 J52 

021360 

021366 

021 367 

021374 

021402 

02U10 

021416 

021424 

021432 



052106 
051505 

114 
052116 
052120 
020110 
044522 

000 

103 
052117 
041040 
043117 

000 

103 
052117 
051101 
020066 
051513 

122 
042040 
052117 
051101 
020066 
051513 

102 
043117 
047040 
052105 
051105 
052105 

103 
052117 
051101 
020067 
051513 

102 
043117 
042040 
047516 
000124 
051127 
020107 
042516 
051105 
042101 
020123 
044506 
047516 

000 

123 
046530 
052116 
052120 
047105 
041101 
046123 



051105 
052105 
051513 
051105 
053440 
051120 
054524 

047101 
051440 
052111 
046040 

047101 
041440 
041040 
043117 

000 
051505 
042111 
041440 
041040 
043117 

000 
052111 
046040 
052117 
040440 
051040 

000 
047101 
041440 
041040 
043117 

000 
052111 
046040 
042517 
020124 

052111 
047524 
044440 
040516 
051104 
047515 
042105 
044124 

052514 
052111 
051105 
020 i25 
042040 
042514 
030525 



051040 
000 
044440 
052522 
052111 
047511 
033440 

047040 
052105 
020066 
05^513 

047040 
042514 
052111 
046040 

052105 
047040 
042514 
052111 
046040 

020067 
051513 
051440 
052106 
051505 

047040 
042514 
052111 
046040 

020067 
051513 
020123 
042523 

047111 
047440 
052116 
020114 
051505 
044504 
040440 
051105 

020061 
044440 
052522 
044127 
051511 
000104 
C54040 



6 7 

omAQ X24. 07-563 02-FEB-82 16:42 PAGE 21-5 
TERMINAL OUTPUT TEST 



EH63: .ASCII /'KS INTERRUPT WITH PRIORITY 7/ 



EM64: .ASCIZ /CAN NOT SET BIT6 OF LKS/ 



EM6>: .ASCIZ /CAN NOT CLEAR B1T6 OF LKS/ 



EH66: .ASCIZ /RESET DID NOT CLEAR 81 T6 OF LKS/ 



EM67: .ASCIZ /8IT7 OF LICS NOT SET AFTER RESET/ 



EM70: .ASCIZ /CAN NOT CLEAR BIT7 OF LKS/ 



EM71: .ASCIZ /8IT7 OF LKS DOES NOT SET/ 



EH72: .ASCIZ /WRITING TO ONE INTERNAL APDRESS HODIFIED ANOTHER/ 



SEO 0084 



EM74: .ASCIZ /SLUl XMIT INTERRUPTS WHEN DISABLED/ 



EH75: .ASCIZ /SLUl XHIT DID NOT INTERRUPT/ 



JKDIAO n/?3B Slj .tc repr oiag 
JKDIA.PII i:0-0CT-81 1o:08 



DWAC X24. 07-563 02-FEB-82 
TERMINAL OUTPUT TEST 



M 7 



16:42 PAGE 21-6 



SEO 008S 



2853 



2854 



2855 



2856 



2857 



2858 



2859 



2860 



2861 



02'440 
02U46 
02K54 
021462 
021466 
02147; 

021502 
021510 
021516 
021524 
021530 
021536 
021544 
021552 
021560 
021566 
on 574 
021577 
021604 
021612 
021620 
021626 
021633 
021640 
021646 
021654 
021662 
021664 
021672 
021700 
021706 
021714 
021722 
021730 
021736 
021744 
021752 
021760 
021766 
021774 
022002 
022005 
022012 
022020 
022026 
022034 
022041 
022046 
022054 
022062 
022070 
022076 
022104 
022112 
022120 
022126 



044515 
020104 
047^ M 
050123 
0<.6123 
044515 
042524 
020124 
044522 
020131 
046123 
044515 
042524 
051524 
020110 
042514 
051101 

123 
046530 
042111 
044440 
052522 

123 
046530 
026505 
051122 
000104 
047514 
020107 
052040 
044504 
020124 
020122 
051122 
046123 
053103 
042524 
051524 
020110 
042514 
051101 

123 
041522 
042111 
044440 
052522 

123 
041522 
052116 
052120 
050040 
052111 
046123 
053103 
042524 
051524 



020124 
0475^6 
042524 
000124 
030525 
020124 
051122 
052101 
051117 
000067 
030525 
020124 
051122 
053440 
047105 
041440 
000 
052514 
052111 
047040 
052116 
052120 
052514 
052111 
047111 
050125 

042101 
046123 
052502 
020104 
046103 
047111 
050125 
030525 
02OT22 
051122 
053440 
047105 
041440 
000 
052514 
051126 
047040 
052116 
052120 
052514 
051126 
051105 
020123 
044522 
020131 
030525 
020122 
051122 
053440 



04<.504 
020124 
051122 

054040 
047111 
050125 
050040 
052111 

054040 
047111 
050125 
052111 
041101 
042514 

020061 
042040 
052117 
051105 
000 
020061 
05^0'*0 
042524 
042524 

047111 
030525 
020106 
047516 
040505 
042524 
000124 
051040 
047111 
050125 
052111 
041101 
042514 

020061 
042040 
052117 
051105 
000 
020061 
044440 
052522 
052101 
051117 
000067 
051040 
047111 
050125 
052111 



EM76: 



EM77: 



.ASCIZ /SLUl XniT INTERRUPT AT PRIORITY 7/ 



.ASCIZ /SLUl XniT INTERRUPTS WITH ENABLE CLEAR/ 



EM100: 



EM101 



.ASCIZ /SLUl XHIT DID NOT INTERRUPT/ 



.ASCIZ /SLUl XHIT RE-INTERRUPTED/ 



EM102; .ASCIZ /LOADING SLUl TBUF DID NOT CLEAR INTERRUPT/ 



EMI 03: .ASCII /SLUl RCVR INTERRUPTS WITH ENABLE CLEAR/ 



EM104: .ASCJZ /SLUl RCVR DID NOT INTERRUPT/ 



EM105: .ASCIZ /SLUl RCVR INTERRUPTS AT PRIORITY 7/ 



EM106: .ASCIZ /SLUl RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 



' KOiAO r 
' j<oiA.pn 



'238 SLU LTC REPR DIAG 
20-OCT-81 16:08 



I 7 

DNMAC X24. 07-563 02-FEB-82 16:42 PAGE 21-7 
TERMINAL OUTPUT TEST 



SEO 0086 



2862 



2863 



2864 



2865 



2866 



2867 



2868 
2869 

2870 



022134 

022150 
022156 
022164 
022165 
022172 
022200 
022206 
022214 
022221 
022226 
022234 
022242 
022250 
022256 
022264 
022272 
022300 
022306 
022314 
022322 
022330 
022336 
022344 
022352 
022360 
022366 
022374 
022400 
022406 
022414 
022^*22 
022430 
022433 
022440 
022446 
022454 
022462 
022470 
022476 
022477 
022504 
022512 
022520 
022522 
022530 
022536 
022544 
022552 
022560 
022565 
022572 
022600 
022606 
022614 



020110 
051122 
047105 
041440 

000 

123 
041522 
042111 
044440 
052522 

123 
042522 
051105 
047111 
050125 
046123 
040505 
051040 
044504 
020124 
020122 
051122 
042522 
044504 
020124 
020122 
051040 
047111 
050125 
046123 
051117 
043501 
047040 
052105 

123 
042447 
020047 
042523 
044124 
020047 

000 

104 
047503 
020105 
000122 
046123 
044515 
042524 
051524 
020116 
046102 

123 
046530 
042111 
044440 
052522 



047111 
050125 
041101 
042514 

052514 
051126 
047040 
052116 
052120 
052514 
042503 
051040 
042524 
042524 
030525 
044504 
052502 
020104 
046103 
047111 
050125 
042523 
020104 
046103 
046123 
053103 
042524 
000124 
030525 
020047 
04:u40 
052117 
000 
052514 
051122 
047516 
020124 
023440 
046106 

052101 
050115 
051105 

031125 
020124 
051122 
053440 
044504 
042105 
052514 
052111 
047040 
052116 
052120 



042524 
020124 
042514 
051101 

020061 
042040 
052117 
051105 
000 
020061 
053111 
026505 
051122 
000104 
051040 
043516 
020106 
047516 
040505 
042524 
000124 
020124 
047516 
040505 
030525 
020122 
051122 

023440 
046106 
042111 
051440 

020061 
051117 
020124 
044527 
051117 
043501 

020101 
051101 
047522 

054040 
047111 
050125 
042510 
040523 

000 
020062 
042040 
052117 
051105 

000 



EM107: .ASCIZ /SLUl RCVR DID NOT INTERRUPT/ 



EHIIO: .ASCIZ /SLUl RECEIVER RE-INTERRUPTED/ 



EM111: .ASCIZ /SLUl READING R8UF DID NOT CLEAR INTERRUPT/ 



EM112: .ASCIZ /RESET DID NOT CLEAR SLUl RCVR INTERRUPT/ 



E)1113: .ASCIZ /SLUl 'OR* FLAG DID NOT SET/ 



EM114: .ASCIZ /SLUl 'ERROR* NOT SET WITH 'OR' FLAG/ 



EM1 15: .ASCIZ /DATA COMPARE ERROR/ 



EM116: .ASCIZ /SLU2 XHIT INTERRUPTS WHEN DISABLED/ 



EM1 17: .ASCIZ /SLU2 XMIT DID NOT INTERRUPT/ 



'^I^OIAO n/238 SLU LTC REPR DIAG 
CjKDlA.Pn 30-OCT-81 16:08 



2871 



2872 



2873 



2874 



2875 



2876 



2877 



2878 



2879 



022621 

022626 

022634 

022642 

022650 

022656 

022663 

0226/0 

022676 

022704 

022712 

022720 

022726 

022732 

022740 

022746 

022754 

022762 

022766 

022774 

023002 

023010 

023016 

023017 

023024 

023032 

023040 

023046 

023054 

023062 

023070 

023071 

023076 

023104 

023112 

023120 

023126 

023134 

023140 

023146 

023154 

023162 

023170 

023174 

023202 

023210 

023216 

023224 

023232 

023237 

023244 

023252 

023260 

023266 

023274 

023302 



123 
046530 
052116 
052120 
051120 
054524 

123 
046530 
052116 
052120 
044124 
046102 
040505 
046123 
044515 
020104 
047111 
050125 
046123 
044515 
044455 
052522 

000 

114 
043516 
020062 
042040 
052117 
051101 
051105 

000 

123 
041522 
052116 
052120 
044124 
046102 
040505 
046123 
053103 
020104 
047111 
050125 
046123 
053103 
042524 
051524 
051120 
054524 

123 
041522 
052116 
052120 
044124 
051105 
042440 



052514 
052111 
051105 
040440 
047511 
033440 
052514 
052111 
051105 
020123 
042440 
020105 
000122 
031125 
020124 
047516 
042524 
000124 
031125 
020124 
052116 
052120 

040517 
051440 
041124 
042111 
041440 
044440 
052522 

052514 
051126 
051105 
020123 
042440 
020105 
000122 
031125 
020122 
047516 
042524 
000124 
031125 
020122 
051122 
040440 
047511 
033440 
052514 
051126 
051105 
020123 
044440 
052522 
040516 



020062 
044440 
052522 
020124 
044522 
000 
020062 
044440 
052522 
044527 
040516 
046103 

054040 
044504 
020124 
051122 

054040 
042522 
051105 
042105 

044504 
052514 
043125 
047040 
042514 
052116 
052120 

020062 
044440 
052522 
044527 
040516 
046103 

051040 
044504 
020124 
051122 

051040 
047111 
050125 
020124 
044522 
000 
020062 
044440 
052522 
044527 
052116 
052120 
046102 



J 7 

DNMAC X24. 07-563 02-FEB-82 16:42 PAGE 21-8 
TERMINAL OUTPUT TEST 

EH120: .ASCIZ /SLU2 XHIT INTERRUPT AT PPIORITV 7/ 



EH121: .A5CIZ /SLU2 XHIT INTERRUPTS WITH ENABLE CLEAR/ 



SEO 0087 



EM122: .ASCIZ /SLU2 XMIT DID NOT INTERRUPT/ 



EM123: .ASCIZ /SLU2 XMIT RE-INTERRUPTED/ 



EM124: .ASCIZ /LOADING SLU2 TBUF DID NOT CLEAR INTERRUPT/ 



EMI 25: .ASCIZ /SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR/ 



EMI 26; .ASCIZ /SLU2 RCVR DID NOT INTERRUPT/ 



EM127: .ASCIZ /SLU2 RCVR INTERRUPTS AT PRIORITY 7/ 



EM130: .ASCIZ /SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 



UHDIAC r/238 SLU LTC «EPR DIAG 
rjKDIA.PII 20-0CT-81 16:08 



DNMAC X24. 07-563 02-FEB-82 
TERMINAL OUTPUT TEST 



7 

16:42 



PAGE 21-9 



SEO 0088 



2880 



2881 



2882 



2883 



2884 



2885 



2886 



2887 



2888 



023310 

023316 

023520 

023326 

023334 

023542 

023350 

023354 

023362 

023370 

023376 

023404 

023411 

023416 

023424 

023432 

023440 

023446 

023454 

023462 

023463 

023470 

023476 

023504 

023512 

023520 

023526 

023533 

023540 

023546 

023554 

023562 

023566 

023574 

023602 

023610 

023616 

023624 

023632 

023640 

023646 

023654 

023662 

023670 

023676 

023701 

023706 

023714 

023722 

023730 

023736 

023741 

023746 

023754 

023762 

023770 



020105 
000122 
046123 
053103 
020104 
047111 
050125 
046123 
041505 
020^22 
052116 
052120 

123 
042522 
020107 
042040 
052117 
051101 
051105 

000 

122 
042040 
052117 
051101 
020062 
044440 
052522 

123 
047447 
040514 
020104 
042523 
046123 
051105 
047040 
052105 
020110 
043040 
046123 
042522 
042111 
052040 
044515 
020114 
051505 

102 
042040 
052117 
043040 
043516 
051117 

123 
042447 
020047 
042523 
044124 



046103 040505 



031125 
020122 
047516 
042524 
000124 
031125 
044505 
042522 
051105 
042105 
052514 
042101 
041122 
042111 
041440 
044440 
052522 

051505 
042111 
041440 
051440 
041522 
052116 
052120 
052514 
023522 
020107 
047516 
000124 
031125 
047522 
052117 
053440 
047447 
040514 
031125 
045501 
047040 
040522 
020124 
042532 

000 
042522 
042111 
051440 
040522 
042440 

000 
052514 
051122 
047516 
020124 
023440 



051040 
044504 
020124 
051122 

051040 
042526 
044455 
052522 
000 
020062 
047111 
043125 
047040 
042514 
052116 
052120 

052105 
047040 
042514 
052514 
051126 
051105 
000 
020062 
043040 
044504 
020124 

023440 
023522 
051440 
052111 
023522 
000107 
041040 
042040 
052117 
051516 
046101 
047522 

045501 
047040 
052105 
044515 
051122 

020062 
051117 
020124 
044527 
051106 



EM131 



.ASCII /SLU2 RCVR DID NOT INTERRUPT/ 



E«132: .ASCJZ /SLU2 RECEIVER RE-INTERRUPTED/ 



EM133: .ASCIZ /SLU2 READING RBUF DID NOT CLEAR INTERRUPT/ 



EM134: .ASCIZ /RESET DID NOT CLEAR SLU2 RCVR INTERRUPT/ 



Eri135: .ASCJZ /SLU2 'OR' FLAG DID NOT SET/ 



EM136: 



.ASCIZ /SLU2 'ERROR* NOT SET WITH 'OR' FLAG/ 



EM137: .ASCIZ /SLU2 BREAK DID NOT TRANSMIT ALL ZEROES/ 



EM140: .ASCIZ /BREAK DID NOT SET FRAMING ERROR/ 



EM141: .ASCIZ /SLU2 'ERROR' NOT SET WITH 'FR' FLAG/ 



CJUDIAO n/25B SLU LTC REPR DIAG 
jlCDIA.P^^ 20-0CT-81 16:08 



2890 



2891 



2892 



2893 



2894 



2895 



2896 



2897 



2898 



023776 

024004 

024005 

024012 

024020 

024026 

024034 

024042 

024043 

024050 

024056 

024064 

024072 

024077 

024104 

024112 

024120 

024126 

024134 

024142 

024150 

024156 

024164 

024170 

024176 

024204 

024212 

024220 

024224 

024232 

024240 

024246 

024251 

024256 

024264 

024272 

024300 

024306 

024313 

024320 

024326 

024334 

024342 

024350 

024356 

024364 

024370 

024376 

024404 

024412 

024420 

024422 

024430 

024436 

024444 

024452 



020047 
000 
104 
047503 
020105 
020122 
041440 
000 
122 
052116 
052120 
051120 
054524 
122 
052116 
052120 
047105 
041101 
052122 
042524 
020124 
047516 
052503 
052122 
042524 
020124 
047516 
052503 
052122 
041125 
052116 
052120 
122 
042040 
052117 
051101 
044440 
052522 
122 
052116 
052120 
047040 
042514 
052111 
033524 
045514 
046103 
042522 
041101 
020131 
000122 
046123 
041505 
020122 
051525 
051117 



046^06 043501 



052101 
050115 
051105 
044527 
041101 

041524 
051105 
040440 
047511 
033440 
041524 
051105 
020123 
042040 
042514 
020103 
051122 
044504 
020124 
000122 
020103 
051122 
044504 
020124 
000122 
020103 
042514 
051105 
000 
051505 
042111 
041440 
051040 
052116 
052120 
041524 
051105 
042040 
052117 
051101 
020110 
047440 
000123 
041517 
042520 
046111 
051105 

030525 
044505 
052123 
042440 
000 



020101 
051101 
047522 
044124 
042514 

044440 
052522 
020124 
044522 
000 
044440 
052522 
044127 
051511 
000104 
047111 
050125 
020104 
041517 

047111 
050125 
020104 
041517 

047504 
044440 
052522 

052105 
047040 
042514 
041524 
051105 
000 
044440 
052522 
042111 
041440 
053440 
044502 
020106 

020113 
052101 
052111 
047522 

051040 
042526 
052101 
051122 
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TERMINAL OUTPUT TEST 



E«142: .ASCIZ /DATA COMPARE ERROR WITH CABLE/ 



EM143: .ASCIZ /RTC INTERRUPT AT PRIORITY II 



ENK4: .ASCrZ /RTC INTERRUPTS WHEN DISABLED/ 



EMUS: .ASCIZ /RTC INTERRUPT DID NOT OCCUR/ 



EM146: .ASCIZ /RTC INTERRUPT DID NOT OCCUR/ 



EM147: .ASCIZ /RTC DOUBLE INTERRUPT/ 



EM150: .ASCIZ /RESET DID NOT CLEAR RTC INTERRUPT/ 



EM151: .ASCIZ /RTC INTERRUPT DID NOT CLEAR UITH BIT7 OF LKS/ 



SE8 00«9 



EM152: .ASCIZ /CLOCK REPEATABILITY ERROR/ 



EM153: .ASCIZ /SLU1 RECEIVER STATUS ERROR/ 



JKDIAO 11/238 SLU LTC REPR DIAG 
jicDIA.Pn 20-0CT-81 16-08 



2899 



2900 



2901 



2902 



2903 



;904 



2905 
2906 



2907 

^.'908 
2909 
2910 
2911 



024455 
024462 
024470 
024476 
024504 
024510 
024516 
024524 
024532 
024540 
024545 
024552 
024560 
024566 
024574 
024602 
024610 
024612 
024620 
024626 
024634 
024642 
024647 
024654 
024662 
024670 
024676 
024704 
024712 
024714 
024722 
024730 

024731 

024736 

024744 

024752 

024756 

024764 

024772 

025000 

025003 

025010 

025016 

025024 

025030 

025036 

025044 

025052 

025055 

025062 

025070 

025076 

025101 

025106 

025114 



123 
042522 
051105 
052524 
047522 
047111 
041505 
042503 
047503 
046123 

123 
040504 
046517 
042440 
044440 
051105 
000122 
047111 
041505 
042503 
047503 
046123 

123 
040504 
046517 
042440 
044440 
051105 
000122 
051124 
052101 

000 

124 
020040 
050040 
051503 
042524 
020040 
041520 
051123 

124 
020040 
050040 
052502 
042524 
020040 
041520 
043125 

124 
020040 
050040 
051513 

124 
020040 
050040 



052514 
042503 
051440 
020123 
000122 
047503 
020124 
053111 
047125 
030525 
052514 
040524 
040520 
051122 
020116 
044503 

047503 
020124 
053111 
047125 
031125 
052514 
040524 
040520 
051122 
020116 
044503 

050101 
044103 



051505 
042440 
020103 
000122 
052123 
051105 
020040 

000 
051505 
042440 
020103 
000106 
052123 
051105 
020040 

000 
051505 
042440 
020103 

000 
051505 
042440 
020103 



020062 
053111 
040524 
051105 

051122 
042522 
020105 
020124 
000 
020061 
041440 
042522 
051117 
054105 
042523 

051122 
042522 
020105 
020124 
000 
020062 
041440 
042522 
051117 
054105 
042523 

041440 
051105 



021524 
051122 
052040 

020043 
020122 
041522 

021524 
051122 
051040 

020043 
020122 
041124 

021524 
051122 
046040 

021524 
051122 
043440 
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TERMINAL OUTPUT TEST 

EMI 54: .ASCII /SLU2 RECEIVER STATUS ERROR/ 



EM155: .ASCIZ /INCORRECT RECEIVE COUNT SLUl/ 



EH156: .ASCIZ /5LU1 DATA COMPARE ERROR IN EXERCISER/ 



SEQ 0090 



EM157: .ASCIZ /INCORRECT RECEIVE COUNT SLU2/ 



EM160: .ASCIZ /SLU2 DATA COMPARE ERROR IN EXERCISER/ 



EM161: .ASCIZ /TRAP CATCHER/ 



DH5: .ASCIZ /TEST* ERR PC TCSR/ 



DH6: .ASflZ /TEST* ERR PC RCSR/ 



DH7: .ASCIZ /I EST* ERR PC R8UF/ 



DH32: .ASCIZ /TEST* ERR PC T8UF/ 



0H61: .ASCIZ /TEST* ERR PC LKS/ 



DH72: .ASCIZ /TEST* ERR PC GDADR BOADR GDDAT BDDAT/ 



JKDIAO 11/258 SLU LTC REPR DIAG 
JKD1A.P11 20-0CT-8^ 16:08 
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TERMINAL OUTPUT TEST 



SEO 0091 





02S122 


040504 


051104 


020040 






025130 


041040 


040504 


051104 






025136 


020040 


043440 


042104 






025144 


052101 


020040 


041040 






025152 


042104 


052101 


000 


DH115 


2912 


025157 


124 


051505 


021524 




025164 


020040 


042440 


051122 






025172 


050040 


020103 


051040 






025200 


051503 


020122 


020040 






025206 


043440 


047517 


020104 






025214 


020040 


041040 


042101 






025222 


000 






DH137 


2913 


025223 


124 


051505 


021524 


025230 


020040 


042440 


051122 






025236 


050040 


020103 


051040 






025244 
025252 


051503 


020122 


020040 






042040 


052101 


000101 




2914 


025260 


042524 


052123 


020043 


DH142 




025266 


020040 


051105 


020122 






025274 


041520 


020040 


047507 






025302 


042117 


020040 


020040 






02^310 


040502 


000104 






2915 


025314 


042524 


052123 


020043 


DH152 




025322 


020040 


051105 


020122 






025330 


041520 


020040 


045514 






025336 


020123 


020040 


020040 






025344 


047103 


030524 


020040 






025352 


020040 


047103 


031124 






025360 


000 






DH155 


2916 


025361 


124 


051505 


021524 


025366 


020040 


042440 


051122 






025374 


050040 


020103 


051040 






025402 


051 5ui 


020122 


020040 






025410 


052040 


040522 


051516 






025416 


020040 


051040 


053103 






025424 


000 








2917 


025425 


124 


051505 


021524 


DH161 


025432 


020040 


042440 


051122 






025440 


050040 


020103 


051040 






025446 


051503 


020122 


020040 






025454 


047440 


042114 


041520 






025462 


020040 


052040 


040522 






025470 


020120 


042101 


000122 




2918 


025476 
025504 


005015 
026511 


045103 
000101 


042113 


Ml: 


2919 


025510 


200 






M2: 


2920 












2921 




025512 






DT5: 


2922 


025512 


001104 


001016 


002764 


025520 


000000 








2923 


025522 


001104 


001016 


002760 


DT6: 


025530 


000000 








2924 


025532 


001104 


001016 


002762 


DT7: 


025540 


000000 








2925 


025542 


001104 


001016 


002754 


DT31 ; 


025550 


000000 









DHilS: .ASCIZ /TEST* ERR PC RCSR GOOD BAD/ 



DH137: .ASCIZ /TEST# ERR PC RCSR DATA/ 



DH142: .ASCJZ /TEST* ERR PC GOOD BAD/ 



DH152: .ASCIZ /TEST# ERR PC LKS CNT1 CNT2/ 



DH155: .ASCIZ /TEST* ERR PC RCSR TRANS RCV/ 



DH161; .ASCIZ /TEST* ERR PC RCSR OLDPC TRAP ADR/ 



.ASCI^ <CR><LF>/CJKDI-A/ 

.ASCII <CftLf> 

•EVEN 

.WORD $TESTN,$ERRPC.CTCSR,0 

.WORD STESTN.SERRPCCRCSR.O 

.WORD $TESTN,$ERRPC,CR8UF,0 

.WORD $TESTN,IERRPC,TCSR.0 



CJKDIAO 11/258 SLU LTC REPR DIAG 
CJKDIA.Pn 20-0CT-81 16:08 



2926 


025552 


001 104 

vv < ' v~ 


001016 


002756 


0T32: 


.WORD 


025560 


000000 

v www 






0T36: 




2927 


025562 


001104 


001016 


002750 


.UORD 


025570 


000000 

www 

001 1C'- 

W I 1 V ^ 




002752 


0T37: 




2928 


025572 


001 01 6 

WV ■ W • w 


.WORD 




025600 


000000 

W W W V 




002770 


DT61 : 




2929 


025602 


001104 


001016 

WW ■ W ' 


.UORD 




025610 


000000 

www 






DT72: 


.WORD 


2930 


025612 


001104 


001016 


001020 


025620 


001022 


001024 


001026 








025626 


000000 

V W w w 






DT115: 




2931 


025630 


001104 


001016 


002760 


.WORD 




025636 


001024 


001026 


000000 


DT137: 




2932 


025644 
025652 


001 104 
001026 


001016 
000000 


002750 


.WORD 


2933 


025656 


001104 


001016 


001024 


DT142: 


.WORD 


025664 


001026 


000000 




DT157; 




2954 


025670 


001 104 


001016 


002750 


.WORD 




025676 


012232 


012234 


000000 






2935 


025704 


001104 


001016 


002750 


07161: 


.WORD 


025712 


012414 


012416 


000000 






2956 


025720 


000200 






BUF1: 


.BLKW 


2957 


026320 


000200 






BUF2: 


.BLKW 


2938 




000001 








• END 
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TERMINAL OUTPUT TEST 

$TESTN,$ERRPC.T6UF.O 

$TESTN,$ERRPC.RCSR,0 

$TESTN,l£RRPC,R8UF.O 

STESTN.SERRPC.LKS.O 

$TESTN.$ERRPC.SGDADR.$6DADR,SGDDAT.SBDDAT,0 



$TESTN.$ERRPC.CRCSR,tGDDAT.$BDDAT.O 
$TESTN.$ERRPC.RCSR.$8DDAT.O 
$TESTN,$ERRPC,$GDDAT,$8DDAT.O 
$TESTN,$ERRPC,RCSR.X^TCT2.R£CCT2.0 
$TESTN.$ERRPC,RCSR,OLDPf .BDVECT.O 



SEO 0092 



200 
200 



;SLU1 INPUT BUFFER FOR BLAST TEST 
;SLU2 INPIT BUFFER FOR BLAST TEST 



CJUDIAO '1/238 SlJ L^C REPR DIA6 DN«AC X24. 07-563 02 

CJicDIA.PM 20-0CT-81 16:08 SYMBOL TABLE 





1 76500 




000001 

W V W W W 1 


0H161 


ACDU1 = 


000000 

www 


BITOO = 

OA* W V 


000001 


DH32 


ACDU? = 


000000 

www 


BIT01 = 


000002 

W V V W W k 


DH5 




000000 

www 


BF02 = 


000004 

w w w w w ~ 


DH6 




000000 

www 


BIT03 = 

V * ' w^ 


000010 

www w • w 


DH61 


ADDW1 = 


oooooc 

www 


B1T04 = 


000020 

W W W W K. W 


DH7 


ADDW10= 


000000 

www 


BIT05 = 


000040 

W W W W ~ w 


DH72 


AODUl 1= 


000000 

www 


BIT06 - 


000100 


DISPLA 


ADDW12= 


000000 

www 


BIT07 = 


000200 


OISPRE 


AODUl 3= 


000000 

www 


BIT08 = 


000400 


DSUR = 


AODuK= 


000000 

V www 


BIT09 = 


001000 


DT115 


ADDU1 5= 


000000 

www 


BIT1 = 


000002 


DT137 


ADDW2 = 


000000 

VW WW 


BIT10 - 


002000 

V W k V V W 


DT142 


A0DW3 = 


000000 

www 


BIT11 = 


004000 


0T157 


ADOW^« = 


000000 


BIT12 = 


010000 


DT161 


A0DW5 = 


000000 

w w w w 


BIT13 = 


020000 


DT31 


ADDU6 = 


000000 

WW 


BIT14 = 


040000 


DT32 


A0DU7 - 


000000 


BIT15 = 


100000 


DT36 


ADDW8 = 


000000 

www 


BIT2 = 


000004 


DT37 


ADDW9 = 


000000 


BIT3 = 


000010 


DT5 


ADEVCT= 


000000 

www 


BIT4 = 


000020 


DT6 


ADEVM = 


000000 

WW WW 


BITS = 


000040 


DT61 


AENV = 


000000 


BIT6 = 


000100 


DT7 


AENVn = 


000000 

w w w w w w 


BIT7 = 


000200 


DT72 


AFATAL" 


000000 

W W W W W V 


BITS = 


000400 


ECHO 


AMADR1= 


000000 


BIT9 = 


001000 


E«TVEC= 


AnADR2= 


000000 


BLAST 


011474 


EMI 00 


AnA0R3= 


000000 

W W W WW w 


BPT = 


000003 


EMI 01 


AnADR4= 


000000 


BPTVEC= 


000014 


EMI 02 


AMAf1S1 = 


000000 


BUF1 


025720 


EMI 03 


AnAns2= 


000000 


BUF2 


026320 


EMI 04 


AnA/1S3= 


000000 

W W W w w w 


CATCH 


012370 


EMI 05 


AMAnS4= 


000000 

W W W W V V 


CHECK2 


012120 


EM1C6 


AMSGAD= 


000000 


CKSWR = 


104407 


EMI 07 


AMS6LG= 


000000 

W W W W V w 


C0NT41 


010546 


EM11 


A/"ISGTY= 


000000 


COUNT 


012236 


EM1 10 


AMTYPIs 


000000 


CR = 


00001 5 


EMI 11 


AnTYP2= 


000000 


CRBUF 


002762 


EMI 12 


AMTyP3= 


000000 


CRCSR 


002760 


EM1 13 


AMTyP4= 


000000 


CRLF = 


000200 


EM1 14 


APASS = 


000000 

W W W W W V 


CRPSU 


003004 


EM1 15 


APR I OR = 


000000 


CRVECT 


003002 


EM1 16 


APTCSU= 


000040 


CT8UF 


002766 


EM1 17 


APTENV= 


000001 


CTCSR 


002764 


EMI 20 


APTSIZ= 


000200 


CTPSU 


003010 


EM121 


APTSPO= 


0001 00 


CTVECT 


003006 


EMI 22 


ASWREG= 


000000 


DAD TBI 


006066 


EMI 23 


ATESTN= 


000000 


ODJSP = 


177570 


EMI 24 


AUNIT = 


000000 


0H115 


025157 


EMI 25 


AUSyR = 


000400 


DH137 


025223 


EMI 26 


AVECn = 


000300 


DH142 


025260 


EMI 27 


AVECT2= 


000000 


DH152 


025314 


EMI 3 


BDVECT 


012416 


DH155 


025361 


EMI 30 
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025425 


EM131 


023320 


EMS 


016010 


025030 


EMI 32 


023354 


EMSO 


020203 


024731 


EM133 


0234 1 1 


EM51 


020251 


024756 


EMI 34 


023463 


EMS 2 


020321 


025055 


EMI 35 


023533 


EMS3 


020365 


025003 


EMI 36 


023566 


EMS4 


020423 


025101 


EMI 37 


023632 


EM5S 


020463 


001042 


EMU 


016254 


EMS6 


020536 


0001 74 


EMI 40 


023701 


EM57 


020573 


177570 


EM141 


023741 


EM6 


016052 


025630 


EMI 42 


024005 


EM60 


020636 


025644 


EM143 


024043 


EM61 


020710 


025656 


EMI 44 


024077 


EM62 


020741 


025670 


EMUS 


024134 


EM63 


021003 


025704 


EM146 


024170 


EM64 


021041 


025542 


EM147 


024224 


EM65 


021071 


025552 


EMI 5 


016324 


EM66 


021123 


025562 


EMI 50 


024251 


EM67 


021163 


025572 


EMI 51 


024313 


EM7 


016111 


025512 


EMI 52 


024370 


EM70 


021223 


025522 


EMI 53 


024422 


EM71 


021255 


025602 


EMI 54 


024455 


EM72 


021306 


025532 


EM155 


024510 


EM74 


021367 


025612 


EMI 56 


024545 


EM75 


021432 


01 5406 


EMI 5 7 


024612 


EM76 


021466 


000030 


EMI 6 


016372 


EM77 


021530 


021577 


EMI 60 


024647 


ERRVEC= 


000004 


021633 


EM161 


024714 


FINIE 


012170 


021664 


EMI 7 


016430 


GTSWR = 


104406 


021736 


EM20 


016470 


HT 


00001 1 


022005 


EM21 


016536 


ID 


003660 


022041 


EM22 


016606 


lOHAND 


012036 


022104 


EM23 


016652 


I0TVEC= 


000020 


022165 


EM24 


016710 


LF 


000012 


016150 


EM25 


016750 


LKS 


002770 


022221 


EM26 


017023 


LTCIT 


010762 


022256 


EM27 


01 7060 


LTCRT 


005626 


022330 


EM30 


017123 


MFR 


015627 


022400 


EM31 


017175 


noR 


015641 


022433 


EM32 


017234 


MPAR 


015616 


022477 


EM33 


017273 


MSG 


015570 


022522 


EM34 


017345 


HSTOP 


015654 


•022565 


EM35 


017413 


Ml 


025476 


022621 


EM36 


017455 


M2 


025510 


022663 


EM37 


017514 


9L0PC 


012414 


022732 


EM40 


017553 


OUTTST 


01 5664 


022766 


EM41 


017623 


PIRQ = 


177772 


023017 


EM42 


017661 


PIRQVE= 


000240 


023071 


EM43 


017721 


PRO = 


000000 


023140 


EM4h 


017767 


PR1 = 


000040 


023174 


EM45 


020037 


PR2 = 


000100 


016206 


EH46 


020105 


PR3 = 


000140 


023237 


EM47 


020143 


PR4 = 


000200 



CjKDIAO 


n/258 


5L'. LTC 


REPR DIAG 


DN«AC 


X24. 07-563 0 




oil 20-OCT-81 


16:08 


SYMBOL 


TABLE 




000240 




TB1TVE= 


000014 


TVECT 


PR6 = 


000300 




TBLEND 


006076 

WWW' w 


TYPDS = 




000340 




TBUF 


002756 


TYPE = 


PS s 


1 77776 




TCSR 


002754 


TYPOC = 


psy : 


}7777b 




TICKER 


011716 


TVPON = 




000024 




TKVEC = 


000060 


TYPOS = 




002752 




TPSy 


003000 


UNIQUE 




002750 




TPVEC = 


000064 

V w w~ 


UAIT 


RDCHR = 


104410 




TRAPVE= 


000034 


UAITER 


RDLIN = 


104411 




TRTVEC= 


000014 


yAITIO 


RFCCT2 


012234 




TST1 


003430 


UDONE 


REC2 


01 1 762 




TSTIO 


004236 


yRPsy 


RESVEC= 


000010 




TST11 


004402 


XMIT2 


RPSy 


002774 




TST12 


004456 


XMTCT2 


RTCPSW 


003014 




TST13 


004516 


XXX 


RTCVT 


003012 




TST14 


004610 


SAPTHD 


RVECT 


002772 




TST15 


004670 


$ATYC 


R6 =1000006 




TST16 


004730 


SATYl 


R7 =1000007 




TST17 


004770 


$ATY3 


SLUllT 


006262 




TST2 


003476 


$ATY4 


SLU2IT 


007016 




TST20 


005126 


SAUTOB 


SLU2RT 


004402 




TST21 


005310 


SBASE 


STACK = 


001100 




TST22 


005472 


$8DADR 


START 


003016 




TST23 


005564 


sbddat 


STKL«T= 


y7777t* 




TST24 


005626 

V V W b W 


$CHARC 


syR 


001040 




TST25 


005702 


SCKSyR 


syREG 


0001 76 




TST26 


006100 


$CnTAG 


syo = 


000001 




TST27 


006262 

V Wk w b 


$C«3 = 


syoo = 


000001 




TST3 


003544 


SCM4 = 


syoi = 


000002 




TST30 


006430 


$CNTL6 


sy02 = 


000004 




TST31 


006550 


fCNTLU 


sy03 = 


000010 




TST32 


006704 


$CPUOP 


syOA = 


000020 




TST33 


007016 


SCRLF 


sy05 - 


000040 




TST34 


007140 


$DBLK 


sy06 - 


000100 




TST35 


007260 


SDEVCT 


SU07 = 


000200 




TST36 


007414 


SDEVfi 


SW08 = 


000400 




TST37 


007556 


$OOAGN 


sy09 = 


001000 




TST4 


003714 


$OTBL 


syi = 


000002 




TST40 


007676 


$ENDAD 


syio = 


^^02000 




TST41 


010014 


SENDCT 


syii = 


004000 




TST42 


010146 


S&NDMG 


SW12 = 


010000 




TST43 


010252 


SENULL 


syi3 = 


020000 




TST44 


010376 


$ENV 


syu = 


040000 




TST45 


010464 


SENVn 


syi 5 = 


100000 




TST46 


010572 


$EOP 


sy2 = 


000004 




TST47 


010664 


JEOPCT 


sy3 = 


000010 




TST5 


003772 


$ERFLG 


sy4 = 


000020 




TST50 


010762 


SERMAX 


sy5 = 


000040 




T3T51 


011210 


$ERROR 


sy6 = 


000100 




TST52 


011356 


SERRPC 


sy7 = 


000200 




TST53 


011474 


$ERRT8 


sy8 = 


000400 




TST6 


004032 


SERRTY 


sy9 


001000 




TST7 


004072 


lERTTL 


. A8S. 


026720 


000 


CON 


RO Aes 


G8L 0 
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SEC 009^ 



002776 


SE5CAP 


001072 


SRDCHR 


015024 


104405 


SETABL 


001120 


SRDLIN 


015154 


104401 


Ietend 


001160 


SRDSZ = 


000010 


104402 


$FATAL 


001 102 


SRTNAD 


012334 


104404 


SFFLG 


013532 


$SAVR6 


013102 


104403 


SFILLC 


001056 


SSCCPE 


013114 


006100 

WW ' WW 


SPILLS 


001055 


$SETUP= 


000137 


015576 


SGDADR 


001020 


SSTUP = 


U7777 


012074 


SGDDAT 


001024 


SSVLAD 


013216 


011712 


$GET42 


012312 


SSVPC = 


000500 


005514 


SGTSyR 


014612 


$syR = 


161000 


012356 


$HD = 


000003 


$SyREG 


001122 


011726 


SHIBTS 


000500 


$SyRI1K= 


000000 


012232 


SICNT 


001004 


STESTN 


001104 


011110 


SILLUP 


013076 


$TK6 


001046 


000500 


SINTAG 


001035 


$TKS 


001044 


013312 


SITEI1B 


001014 


STMPO 


001060 


013266 


fLF 


001076 


STHPl 


001062 


013274 


SLFLG 


013531 


$TW>2 


001064 


013304 


SLPADR 


001006 


$T«P3 


001066 


001034 


SLPERR 


001010 


STnP4 


001070 


001154 


SMADRl 


001132 


STN = 


000054 


001022 


SnADR2 


001136 


$TPB 


001052 


001026 


SnADR3 


001142 


$TPFLC 


001057 


014064 


SnADR4 


001146 


$TPS 


001050 


014542 


SHAIL 


001 1 00 


STRAP 


015326 


001000 


SMAMSI 


001130 


$TRAP2 


015350 


000000 


$nA/1S2 


001134 


$TRP = 


000012 


000005 


$MAMS3 


001140 


$TRPAD 


015362 


015277 


SNA(1S4 


001144 


$TST« 


000504 


015272 


SMBADR 


000502 


$TSTNn 


001002 


001126 


SnFLG 


013530 


STTYIN 


015262 


001075 


snNEy 


015315 


STYPDS 


014316 


014532 


$nSGAD 


001114 


STYPE 


013534 


001110 


SnSGLG 


001116 


STYPEC 


013746 


001156 


$nSGTY 


001100 


STYPEX 


014066 


012332 


$nsyR 


015304 


$TYPOC 


014114 


014522 


SMTYPI 


001131 


$TYPON 


014130 


012322 


$«TYP2 


001135 


$ TYPOS 


014070 


012270 
012341 


$«TYP3 


001141 


$UNIT 


001112 


$I«ITYP4 


001145 


SUNITM 


000510 


012336 


$NULL 


001054 


$USUR 


001124 


001120 


$NUTST= 


000001 


$VECT1 


001150 


001121 


SOCNT 


014312 


$VECT2 


001152 


012240 


sonoDE 


014314 


SXOFF = 


000023 


012262 


$0VER 


013252 


$XON = 


000021 


001003 


$PASS 


001106 


SXTSTR 


013126 


001015 


$PAST« 


000506 


$$6ET4= 


000000 


012420 


SPOVER 


013104 


SOFILL 


014313 


001016 


$PURDN 


012736 




026720 


001160 


SPWRMG 


013072 


;$ERRT~ 


001160 


012602 


$PURUP 


013010 


.$X = 


000500 


001012 


SOUES 


001074 
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